pure foo added by megane on Wed Jun 27 05:42:57 2012

(: foo (* -> (* --> *)))
(define (foo a) (lambda (b) a))
;; ; GENERATED BY CHICKEN 4.7.5 FROM foo.scm

;; (foo (#(procedure pure:) foo (*) (procedure (*) *)))
;; ; END OF FILE

-----------
;;(: foo ((* --> *) -> *))
(define (foo a) (lambda (b) a))

;; ; GENERATED BY CHICKEN 4.7.5 FROM foo.scm

;; (foo (#(procedure pure:) foo ((procedure (*) *)) *))
;; ; END OF FILE
[ permalink | raw ]