bldc/tests/test_callcc_1.lisp

mirror of https://github.com/rusefi/bldc.git

(define f (lambda (x) (+ x 1)))


(check (= (f (call-cc (lambda (k) (k 10)))) 11))

	`(define f (lambda (x) (+ x 1)))`



	`(check (= (f (call-cc (lambda (k) (k 10)))) 11))`