Turn off sf:enable-true-unspecific?

diff --git a/src/sf/analyze.scm b/src/sf/analyze.scm
index c1ce65b0156234e528e7548fe5e89a649cd3fa28..c25a08045acfa80e3653d336885a60f2fe508e86 100644 (file)
--- a/src/sf/analyze.scm
+++ b/src/sf/analyze.scm
@@ -757,10 +757,12 @@ USA.
 ;; the value as something more convenient.  For example, a
 ;; conditional might just treat an unspecific as #F to enable
 ;; folding.
-(define sf:enable-true-unspecific? #t)
+
+;; Disable for now because the pathname package uses unspecific
+;; as a special marker.  Ugh.
+(define sf:enable-true-unspecific? #f)
 
 (define (expression/unspecific? expression)
   (and (constant? expression)
        (eq? (constant/value expression) unspecific)
-       (noisy-test sf:enable-true-unspecific? "Enable true unspecific")))
-
+       (noisy-test sf:enable-true-unspecific? "Enable true unspecific")))
\ No newline at end of file