* tests/exceptions.test (false-if-exception): Disable tests on

	referencing expansion environment, reverted.

diff --git a/test-suite/tests/exceptions.test b/test-suite/tests/exceptions.test
index 05f4645..aedd536 100644 (file)
--- a/test-suite/tests/exceptions.test
+++ b/test-suite/tests/exceptions.test
@@ -63,22 +63,25 @@
        (lambda (x y . rest) #f)))))
 
 (with-test-prefix "false-if-exception"
-  
+
   (pass-if (false-if-exception #t))
   (pass-if (not (false-if-exception #f)))
   (pass-if (not (false-if-exception (error "xxx"))))
-  
-  (with-test-prefix "in empty environment"
-    ;; an environment with no bindings at all
-    (define empty-environment
-      (make-module 1))
-    
-    (pass-if "#t"
-      (eval `(,false-if-exception #t)
-           empty-environment))
-    (pass-if "#f"
-      (not (eval `(,false-if-exception #f)
-                empty-environment)))
-    (pass-if "exception"
-      (not (eval `(,false-if-exception (,error "xxx"))
-                empty-environment)))))
+
+  ;; Not yet working.
+  ;;
+  ;; (with-test-prefix "in empty environment"
+  ;;   ;; an environment with no bindings at all
+  ;;   (define empty-environment
+  ;;     (make-module 1))
+  ;;
+  ;;   (pass-if "#t"
+  ;;     (eval `(,false-if-exception #t)
+  ;;       empty-environment))
+  ;;   (pass-if "#f"
+  ;;     (not (eval `(,false-if-exception #f)
+  ;;            empty-environment)))
+  ;;   (pass-if "exception"
+  ;;     (not (eval `(,false-if-exception (,error "xxx"))
+  ;;                empty-environment))))
+  )