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

# · Scheme · 13 lines · 11 code · 2 blank · 0 comment · 0 complexity · 36677e87d2141cc4154d14cb50697bf3 MD5 · raw file

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