From f7b18cc72dd5b2ca90b6670dbe81c3ef3204d6d9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 10 Jul 2022 23:36:56 +0200 Subject: Resolve recursive macros. --- tests/test/cpp/cpp-environment.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 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 8600c731..d31ec208 100644 --- a/tests/test/cpp/cpp-environment.scm +++ b/tests/test/cpp/cpp-environment.scm @@ -2,6 +2,7 @@ :use-module (srfi srfi-64) :use-module (srfi srfi-88) :use-module (c cpp-environment) + :use-module ((c lex2) :select (lex)) :use-module (c cpp-environment object-like-macro) ) @@ -29,10 +30,10 @@ e "key" (object-like-macro identifier: "key" - body: '((preprocessing-token (identifier "value"))))))) + body: (lex "value"))))) (let ((result (get-identifier e* "key"))) (test-assert (macro? result)) - (test-equal '((preprocessing-token (identifier "value"))) + (test-equal (lex "value") (macro-body result)))) ;; (get-identifier e "key") here is undefined ) -- cgit v1.2.3