From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 1 Sep 1992 20:55:54 +0000 (+0000)
Subject: Add support for M-x print-graphics.
X-Git-Tag: 20090517-FFI~9021
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cafadeb4a16d5844942bfa35e7dcec5957f7ceee;p=mit-scheme.git

Add support for M-x print-graphics.
---

diff --git a/v7/src/6001/6001.sf b/v7/src/6001/6001.sf
index bd2bae819..bd335b325 100644
--- a/v7/src/6001/6001.sf
+++ b/v7/src/6001/6001.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/6001.sf,v 1.5 1992/09/01 20:12:08 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/6001.sf,v 1.6 1992/09/01 20:55:54 cph Exp $
 
 Copyright (c) 1991-92 Massachusetts Institute of Technology
 
@@ -37,7 +37,8 @@ MIT in each case. |#
 	    '("arith" "make" "nodefs" "picture" "pic-record" "pic-image"
 		      "pic-read" "pic-ops")))
 
-(fluid-let ((sf/default-syntax-table edwin-syntax-table))
+(fluid-let ((sf/default-syntax-table
+	     (access edwin-syntax-table (->environment '(edwin)))))
   (sf-conditionally "edextra"))
 
 ;; Guarantee that the package modeller is loaded.