From 52e9525e56bed397db282215606c80c2b119caf6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Dec 2001 03:35:56 +0000
Subject: [PATCH] Fix dangling reference to SF/SET-DEFAULT-SYNTAX-TABLE!.

---
 v7/src/cref/cref.sf | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/cref/cref.sf b/v7/src/cref/cref.sf
index 31df50be3..6861ec82c 100644
--- a/v7/src/cref/cref.sf
+++ b/v7/src/cref/cref.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cref.sf,v 1.14 2001/12/17 17:40:58 cph Exp $
+$Id: cref.sf,v 1.15 2001/12/20 03:35:56 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -20,9 +20,9 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
 USA.
 |#
 
-(sf/set-default-syntax-table! system-global-syntax-table)
-(sf-conditionally "object")
-(sf-directory ".")
+(fluid-let ((sf/default-syntax-table (->environment '())))
+  (sf-conditionally "object")
+  (sf-directory "."))
 
 (let ((package-set (package-set-pathname "cref")))
   (if (not (file-exists? package-set))
-- 
2.25.1