[Swig-cvs] SWIG/Examples/chicken/multimap test-multimap.scm,1.6,1.7

[John L. <wu...@us...>]

Update of /cvsroot/swig/SWIG/Examples/chicken/multimap
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12202/Examples/chicken/multimap

Modified Files:
	test-multimap.scm 
Log Message:
Fix a few minor bugs in the chicken module


Index: test-multimap.scm
===================================================================
RCS file: /cvsroot/swig/SWIG/Examples/chicken/multimap/test-multimap.scm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** test-multimap.scm	15 Apr 2005 22:38:08 -0000	1.6
--- test-multimap.scm	20 Oct 2005 00:37:57 -0000	1.7
***************
*** 8,29 ****
  (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 "\n")
  
  (display "(circle 1.0 1.0): ")
! ;;(circle 1.0 1.0)
  (display "\n")
  
  (display "(circle 1 1): ")
! ;;(circle 1 1)
  (display "\n")
  
--- 8,33 ----
  (display "\n")
  
  (display "(circle 0.5 0.5): ")
! (display (circle 0.5 0.5))
  (display "\n")
  
  (display "(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): ")
! (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")
  
***************
*** 32,39 ****
  (display "\n")
  
- (display "(capitalize 'a): ")
- ;;(display (capitalize 'a))
- (display "\n")
- 
  (display "(count \"jumpity little spider\" #\\t): ")
  (display (count "jumpity little spider" #\t))
--- 36,39 ----
***************
*** 52,56 ****
  (display "\n")
  
! (display "(squarecubed 3: ")
  (call-with-values (lambda() (squareCubed 3)) 
  		  (lambda (a b) (printf "~A ~A" a b)))
--- 52,56 ----
  (display "\n")
  
! (display "squarecubed 3: ")
  (call-with-values (lambda() (squareCubed 3)) 
  		  (lambda (a b) (printf "~A ~A" a b)))