From cafadeb4a16d5844942bfa35e7dcec5957f7ceee Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 1 Sep 1992 20:55:54 +0000 Subject: [PATCH] Add support for M-x print-graphics. --- v7/src/6001/6001.sf | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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. -- 2.25.1