Implemented cintinuations and call/cc

2020-04-03 22:47:48 +02:00
parent 419d28f4f2
commit 7a780615f9
21 changed files with 422 additions and 203 deletions
@@ -1 +1,7 @@
-;; (define (empty-function-body-test))
+(define (empty-function-body-test))
+
+;; test that arguments to apply are only evaled once
+(define counter 0)
+(assert (= (apply (lambda (x) x) (begin (mutate! counter (+ 1 counter)) (list +)))
+           +))
+(assert (= counter 1))