#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/6001.sf,v 1.1 1991/08/22 17:42:15 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/6001.sf,v 1.2 1991/08/22 20:32:35 arthur Exp $
Copyright (c) 1991 Massachusetts Institute of Technology
(fluid-let ((sf/default-syntax-table syntax-table/system-internal))
(for-each sf-conditionally
- '("arith" "nodefs" "picture" "pic-record" "pic-image" "pic-read"
- "pic-ops")))
+ '("arith" "make" "nodefs" "picture" "pic-record" "pic-image"
+ "pic-read" "pic-ops")))
;; Guarantee that the package modeller is loaded.
(if (not (name->package '(CROSS-REFERENCE)))