From 08b84c6b42312aa2bb4d854367b4a17cafcf28c2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 23 Jul 2022 20:44:05 +0200 Subject: 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. --- tests/test/cpp/cpp-environment.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'tests/test/cpp/cpp-environment.scm') 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"))) -- cgit v1.2.3