jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed module technique from <module_name>- to <module_name>: which

Browse source 
conforms with chicken "egg" standard.  Got rid of ##csi#run for
relinking the Scheme interpreter as no longer needed.  Changed all
documentation to reflect both changes.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4411 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Jonah Beckford 2003-02-27 02:00:15 +00:00
commit cfe7be1eed
20 changed files with 681 additions and 682 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Examples/chicken/constants/test-constants.scm
View file

@ -2,14 +2,14 @@
;; feel free to uncomment and comment sections
(display "starting test ... you will see 'finished' if successful.\n")
(or (= (example-ICONST) 42) (exit 1))
(or (< (abs (- (example-FCONST) 2.1828)) 0.00001) (exit 1))
(or (char=? (example-CCONST) #\x) (exit 1))
(or (char=? (example-CCONST2) #\newline) (exit 1))
(or (string=? (example-SCONST) "Hello World") (exit 1))
(or (string=? (example-SCONST2) "\"Hello World\"") (exit 1))
(or (< (abs (- (example-EXPR) (+ (example-ICONST) (* 3 (example-FCONST))))) 0.00001) (exit 1))
(or (= (example-iconstX) 37) (exit 1))
(or (< (abs (- (example-fconstX) 3.14)) 0.00001) (exit 1))
(or (= (example:ICONST) 42) (exit 1))
(or (< (abs (- (example:FCONST) 2.1828)) 0.00001) (exit 1))
(or (char=? (example:CCONST) #\x) (exit 1))
(or (char=? (example:CCONST2) #\newline) (exit 1))
(or (string=? (example:SCONST) "Hello World") (exit 1))
(or (string=? (example:SCONST2) "\"Hello World\"") (exit 1))
(or (< (abs (- (example:EXPR) (+ (example:ICONST) (* 3 (example:FCONST))))) 0.00001) (exit 1))
(or (= (example:iconstX) 37) (exit 1))
(or (< (abs (- (example:fconstX) 3.14)) 0.00001) (exit 1))
(display "finished test.\n")
(exit 0)