/tags/rel-1-3-25/SWIG/Examples/test-suite/chicken/li_typemaps_runme_proxy.ss
Scheme | 13 lines | 11 code | 2 blank | 0 comment | 0 complexity | 36677e87d2141cc4154d14cb50697bf3 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
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)