From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Mon, 8 Mar 2010 21:09:02 +0000 (-0800)
Subject: Turn off sf:enable-true-unspecific?
X-Git-Tag: 20100708-Gtk~116
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=13218df2b61ff165187dd7e1fb2d0ba5f228b681;p=mit-scheme.git

Turn off sf:enable-true-unspecific?
---

diff --git a/src/sf/analyze.scm b/src/sf/analyze.scm
index c1ce65b01..c25a08045 100644
--- 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