1(c-define (f str) (char-string) scheme-object "f" "" 2 (pp (list 'entry 'str= str)) 3 (let ((k (call-with-current-continuation (lambda (k) k)))) 4 (pp (list 'exit 'k= k)) 5 k)) 6(define scheme-to-c-to-scheme-and-back 7 (c-lambda (char-string) scheme-object 8 "___result = f (___arg1);")) 9