Permalink
Fetching contributors…
Cannot retrieve contributors at this time
9 lines (8 sloc) 293 Bytes
(c-define (f str) (char-string) scheme-object "f" ""
(pp (list 'entry 'str= str))
(let ((k (call-with-current-continuation (lambda (k) k))))
(pp (list 'exit 'k= k))
k))
(define scheme-to-c-to-scheme-and-back
(c-lambda (char-string) scheme-object
"___result = f (___arg1);"))