Eliminate references to SYNTAX-TABLE/SYSTEM-INTERNAL.

diff --git a/v7/src/6001/6001.pkg b/v7/src/6001/6001.pkg
index c2d231af18e22e4ecb9b98226ee3c88932007b53..88b524df2b80b1651761fa72fd523fdef0c61e6e 100644 (file)
--- a/v7/src/6001/6001.pkg
+++ b/v7/src/6001/6001.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: 6001.pkg,v 1.13 2001/12/17 17:40:58 cph Exp $
+$Id: 6001.pkg,v 1.14 2001/12/20 03:16:08 cph Exp $
 
 Copyright (c) 1991-1999, 2001 Massachusetts Institute of Technology
 
@@ -30,14 +30,14 @@ USA.
 
 (define-package (student scode-rewriting)
   (files "nodefs")
-  (parent ())
+  (parent (student))
   (import (runtime rep)
          hook/repl-eval)
   (initialization (initialize-package!)))
 
 (define-package (student number)
   (files "arith")
-  (parent ())
+  (parent (runtime))
   (import (runtime number)
          flo:->rational
          flo:rationalize
@@ -109,7 +109,7 @@ USA.
         "pic-read"
         "pic-imag"
         "pic-ops")
-  (parent ())
+  (parent (student))
   (import (runtime x-graphics)
          x-graphics-device/xw)
   (export (student)

diff --git a/v7/src/sos/instance.scm b/v7/src/sos/instance.scm
index fea00921d56f2419ee625c347988e05af240cadf..d0cbee1560cfa85afafb510aa8b2b056e3a0ae01 100644 (file)
--- a/v7/src/sos/instance.scm
+++ b/v7/src/sos/instance.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: instance.scm,v 1.10 2001/12/19 20:50:04 cph Exp $
+;;; $Id: instance.scm,v 1.11 2001/12/20 03:13:05 cph Exp $
 ;;;
 ;;; Copyright (c) 1995-2000 Massachusetts Institute of Technology
 ;;;
@@ -90,8 +90,8 @@
               ,(generator '((INITIALIZATION INSTANCE)))
               ,(generator '())))))))
 
-(define-macro (ucode-type name)
-  (apply microcode-type name))
+(define-macro (ucode-type . arguments)
+  (apply microcode-type arguments))
 \f
 (define-macro (instance-constructor-3 test arity initialization ixs)
   `(LETREC