diff options
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)))) |