From 13218df2b61ff165187dd7e1fb2d0ba5f228b681 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Mon, 8 Mar 2010 13:09:02 -0800 Subject: [PATCH] Turn off sf:enable-true-unspecific? --- src/sf/analyze.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 2.25.1