diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-23 20:44:05 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-23 20:49:19 +0200 |
commit | 08b84c6b42312aa2bb4d854367b4a17cafcf28c2 (patch) | |
tree | 761d997180ca5d40f0481c1a63fd07728b7ddb69 /tests/test/cpp/cpp-environment.scm | |
parent | Introduce key: to define-type. (diff) | |
download | calp-08b84c6b42312aa2bb4d854367b4a17cafcf28c2.tar.gz calp-08b84c6b42312aa2bb4d854367b4a17cafcf28c2.tar.xz |
Merge cpp-environment sub-modules into main module.
The modules where sepparate before to allow multiple objects to share
keys for the constructor. This is not needed any more since the
introduction of key: to define-type.
Diffstat (limited to '')
-rw-r--r-- | tests/test/cpp/cpp-environment.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/test/cpp/cpp-environment.scm b/tests/test/cpp/cpp-environment.scm index e59940da..d38aafe3 100644 --- a/tests/test/cpp/cpp-environment.scm +++ b/tests/test/cpp/cpp-environment.scm @@ -3,9 +3,10 @@ :use-module (srfi srfi-88) :use-module (c cpp-environment) :use-module ((c lex2) :select (lex)) - :use-module (c cpp-environment object-like-macro) ) +(define cpp-if-status (@@ (c cpp-environment) cpp-if-status)) + (let ((e (make-environment))) (test-equal '(outside) (cpp-if-status e)) (let ((e* (enter-into-if e (if-status active)))) @@ -29,8 +30,8 @@ (let ((e (make-environment))) (let ((e* (add-identifier - e "key" - (object-like-macro + e + (object-macro identifier: "key" body: (lex "value"))))) (let ((result (get-identifier e* "key"))) |