PageRenderTime 40ms CodeModel.GetById 17ms RepoModel.GetById 0ms app.codeStats 0ms

/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
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. (require 'li_typemaps)
    2. 

  2. (load "../schemerunme/li_typemaps_proxy.scm")
    3. 

  3. 

  4. (call-with-values (lambda () (inoutr-int2 3 -2))
    5. 

  5. 		  (lambda (a b)
    6. 

  6. 		    (if (not (and (= a 3) (= b -2)))
    7. 

  7. 		      (error "Error in inoutr-int2"))))
    8. 

  8. (call-with-values (lambda () (out-foo 4))
    9. 

  9. 		  (lambda (a b)
    10. 

  10. 		    (if (not (and (= (slot-ref a 'a) 4) (= b 8)))
    11. 

  11. 		      (error "Error in out-foo"))))
    12. 

  12. 

  13. (exit 0)
    14. 

  14.