8 lines
230 B
Plaintext
8 lines
230 B
Plaintext
(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))
|