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

Fix a few minor bugs in the chicken module

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7690 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2005-10-20 00:37:57 +00:00
commit 153ceb2f5b
3 changed files with 25 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

32
Examples/chicken/multimap/test-multimap.scm
View file

@ -7,34 +7,34 @@
(display (gcd 90 12))
(display "\n")
(display "(gcd 90 'a): ")
;;(display (gcd 90 'a))
(display "\n")
(display "(gcd 'b 12): ")
;;(display (gcd 'b 12))
(display "\n")
(display "(circle 0.5 0.5): ")
(circle 0.5 0.5)
(display (circle 0.5 0.5))
(display "\n")
(display "(circle 1.0 1.0): ")
;;(circle 1.0 1.0)
(handle-exceptions exvar
(if (= (car exvar) 9)
(display "success: exception thrown")
(display "an incorrect exception was thrown"))
(begin
(circle 1.0 1.0)
(display "an exception was not thrown when it should have been")))
(display "\n")
(display "(circle 1 1): ")
;;(circle 1 1)
(handle-exceptions exvar
(if (= (car exvar) 9)
(display "success: exception thrown")
(display "an incorrect exception was thrown"))
(begin
(circle 1 1)
(display "an exception was not thrown when it should have been")))
(display "\n")
(display "(capitalize \"will this be all capital letters?\"): ")
(display (capitalize "will this be all capital letters?"))
(display "\n")
(display "(capitalize 'a): ")
;;(display (capitalize 'a))
(display "\n")
(display "(count \"jumpity little spider\" #\\t): ")
(display (count "jumpity little spider" #\t))
(display "\n")
@ -51,7 +51,7 @@
(gcdmain '#("gcd" "12" "90"))
(display "\n")
(display "(squarecubed 3: ")
(display "squarecubed 3: ")
(call-with-values (lambda() (squareCubed 3))
(lambda (a b) (printf "~A ~A" a b)))
(display "\n")