1;;;; callback-tests.scm 2 3(import (only (chicken process-context) command-line-arguments)) 4 5(define k1) 6 7(define-external (foo) void 8 (call/cc 9 (lambda (k) (set! k1 k))) 10 (print "hi!")) 11 12#> 13extern void foo(); 14static void bar() { foo(); } 15<# 16 17(print "callbacks ...") 18((foreign-safe-lambda void "bar")) 19 20(when (member "twice" (command-line-arguments)) 21 (k1 #f)) 22