SWIG chicken module now returns multiple values instead of returning a list.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7156 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Examples/chicken/multimap/test-multimap.scm

@@ -52,7 +52,8 @@
 (display "\n")
 
 (display "(squarecubed 3: ")
-(display (squareCubed 3))
+(call-with-values (lambda() (squareCubed 3)) 
+		  (lambda (a b) (printf "~A ~A" a b)))
 (display "\n")
 
 (exit)

Examples/chicken/zlib/test-zlib.scm

@@ -28,16 +28,14 @@
     (printf "deflate error(~D): ~A ~%" ret (z-stream-msg-get s)))))
 
 ;; Use simple compress routine, and set max output size to 100
-(define c (compress 100 in))
 (newline)
-(let
-    ((ret (car c))
-     (compressed (cadr c)))
-  (cond
-   ((= ret (Z-OK))
-    (printf "compressed properly!~%compressed bytes: ~A~%compressed stream: ~A~%"
-            (string-length compressed) compressed))
-   (else
-    (printf "compress error(~D): ~A ~%" ret (z-error ret)))))
+(call-with-values (lambda () (compress 100 in))
+  (lambda (ret compressed)
+    (cond
+     ((= ret (Z-OK))
+      (printf "compressed properly!~%compressed bytes: ~A~%compressed stream: ~A~%"
+              (string-length compressed) compressed))
+     (else
+      (printf "compress error(~D): ~A ~%" ret (z-error ret))))))
 
 (exit 0)