From a66525db9c4c07c8cff6f927bd930f62f7d1ccdf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 Jul 2022 17:21:23 +0200 Subject: Handle nested #if trees. --- tests/test/cpp/cpp-environment.scm | 4 ++-- 1 file changed, 2 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 684c0fb5..e59940da 100644 --- a/tests/test/cpp/cpp-environment.scm +++ b/tests/test/cpp/cpp-environment.scm @@ -8,8 +8,8 @@ (let ((e (make-environment))) (test-equal '(outside) (cpp-if-status e)) - (let ((e* (enter-active-if e))) - (test-equal "Enter works" '(active-if outside) (cpp-if-status e*)) + (let ((e* (enter-into-if e (if-status active)))) + (test-equal "Enter works" '(active outside) (cpp-if-status e*)) (test-equal "Original object remainins unmodified" '(outside) (cpp-if-status e)))) -- cgit v1.2.3