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