/trunk/Examples/test-suite/chicken/li_typemaps_runme_proxy.ss

 1(require 'li_typemaps)
 2(load "../schemerunme/li_typemaps_proxy.scm")
 3
 4(call-with-values (lambda () (inoutr-int2 3 -2))
 5		  (lambda (a b)
 6		    (if (not (and (= a 3) (= b -2)))
 7		      (error "Error in inoutr-int2"))))
 8(call-with-values (lambda () (out-foo 4))
 9		  (lambda (a b)
10		    (if (not (and (= (slot-ref a 'a) 4) (= b 8)))
11		      (error "Error in out-foo"))))
12
13(exit 0)