Improve Gambit REPL (toolbar is semi transparent and the alpha can be set with set...
[gambit-c.git] / doc / test3.scm
blob8f14969f513dfd9cc50647d187d75b3a344cc2ea
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);"))