diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-22 17:21:23 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-22 17:23:32 +0200 |
| commit | a66525db9c4c07c8cff6f927bd930f62f7d1ccdf (patch) | |
| tree | 061a872003ce41cc8dce12cf52a3153f88e68a97 /tests/test/cpp/cpp-environment.scm | |
| parent | Add procedures for referencing specifier value. (diff) | |
| download | calp-a66525db9c4c07c8cff6f927bd930f62f7d1ccdf.tar.gz calp-a66525db9c4c07c8cff6f927bd930f62f7d1ccdf.tar.xz | |
Handle nested #if trees.
Diffstat (limited to '')
| -rw-r--r-- | tests/test/cpp/cpp-environment.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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)))) |