rusefi
/
bldc
mirror of https://github.com/rusefi/bldc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
bldc/tests/test_callcc_1.lisp

7 lines
77 B
Common Lisp
Raw Blame History

(define f (lambda (x) (+ x 1)))
(= (f (call-cc (lambda (k) (k 10)))) 11)
Reference in New Issue View Git Blame Copy Permalink