aboutsummaryrefslogtreecommitdiff
path: root/tests/test/cpp/cpp-environment.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-07-23 20:44:05 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2022-07-23 20:49:19 +0200
commit08b84c6b42312aa2bb4d854367b4a17cafcf28c2 (patch)
tree761d997180ca5d40f0481c1a63fd07728b7ddb69 /tests/test/cpp/cpp-environment.scm
parentIntroduce key: to define-type. (diff)
downloadcalp-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.scm7
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")))