Add support for M-x print-graphics.

diff --git a/v7/src/6001/6001.sf b/v7/src/6001/6001.sf
index bd2bae8199e585f857d0c8b2483cfbd2478b49c6..bd335b325e093184c1b851f4b143699096ac09ba 100644 (file)
--- 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.