diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-10 23:36:56 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-10 23:36:56 +0200 |
commit | f7b18cc72dd5b2ca90b6670dbe81c3ef3204d6d9 (patch) | |
tree | dcc40399f08285a9a308079098e735fb5bf192bd /tests/test/cpp/cpp-environment.scm | |
parent | Add of-type? to (hnh util type). (diff) | |
download | calp-f7b18cc72dd5b2ca90b6670dbe81c3ef3204d6d9.tar.gz calp-f7b18cc72dd5b2ca90b6670dbe81c3ef3204d6d9.tar.xz |
Resolve recursive macros.
Diffstat (limited to 'tests/test/cpp/cpp-environment.scm')
-rw-r--r-- | tests/test/cpp/cpp-environment.scm | 5 |
1 files changed, 3 insertions, 2 deletions
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 ) |