From 7d3d685ab12d312cdca7bd2fae58d0c1895a3392 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Dec 2001 03:16:08 +0000
Subject: [PATCH] Eliminate references to SYNTAX-TABLE/SYSTEM-INTERNAL.

---
 v7/src/6001/6001.pkg    | 8 ++++----
 v7/src/sos/instance.scm | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/v7/src/6001/6001.pkg b/v7/src/6001/6001.pkg
index c2d231af1..88b524df2 100644
--- 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 fea00921d..d0cbee156 100644
--- 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))
 
 (define-macro (instance-constructor-3 test arity initialization ixs)
   `(LETREC
-- 
2.25.1