1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00

("evaluator" "memoization"): New test prefix block.

("transparency"): New "evaluator memoization" test.
This commit is contained in:
Thien-Thi Nguyen 2001-05-10 00:02:51 +00:00
parent 7c582ec9b5
commit 414959cad8

View file

@ -57,6 +57,13 @@
(with-test-prefix "evaluator"
(with-test-prefix "memoization"
(pass-if "transparency"
(let ((x '(begin 1)))
(eval x (current-module))
(equal? '(begin 1) x))))
(with-test-prefix "symbol lookup"
(with-test-prefix "top level"
@ -169,3 +176,5 @@
exception:out-of-range
(map + '(1 2) '(3)))
)))
;;; eval.test ends here