diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-11 22:47:58 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-11 22:47:58 +0200 |
commit | eeccf193ff6313abedede827f3096b84428762eb (patch) | |
tree | 8d3852cd6d35f2ed12d6073ba83a3f320532112f /tests/test/cpp/cpp-environment.scm | |
parent | Remove usage of zipper. (diff) | |
download | calp-eeccf193ff6313abedede827f3096b84428762eb.tar.gz calp-eeccf193ff6313abedede827f3096b84428762eb.tar.xz |
Remove linear update environment procedures.
Diffstat (limited to 'tests/test/cpp/cpp-environment.scm')
-rw-r--r-- | tests/test/cpp/cpp-environment.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/test/cpp/cpp-environment.scm b/tests/test/cpp/cpp-environment.scm index df4736fb..1b24676f 100644 --- a/tests/test/cpp/cpp-environment.scm +++ b/tests/test/cpp/cpp-environment.scm @@ -28,7 +28,7 @@ (let ((e (make-environment))) - (let ((e* (add-identifier! + (let ((e* (add-identifier e "key" (object-like-macro identifier: "key" @@ -36,9 +36,7 @@ (let ((result (get-identifier e* "key"))) (test-assert (macro? result)) (test-equal (lex "value") - (macro-body result)))) - ;; (get-identifier e "key") here is undefined - ) + (macro-body result))))) (let ((e (make-environment))) (let ((result (get-identifier e "key"))) |