Change GUARANTEE-SYNTAX-TABLE to take second argument.

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index f8ab747ed0ebedb0a7d4e352282004c964db7c88..c02282a75133c3d55d676507384dbb206b49ab1b 100644 (file)
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.47 1993/11/21 22:56:50 cph Exp $
+$Id: load.scm,v 14.48 1993/12/29 18:35:47 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -85,7 +85,7 @@ MIT in each case. |#
         (if (or (default-object? syntax-table)
                 (eq? syntax-table default-object))
             default-object
-            (guarantee-syntax-table syntax-table)))
+            (guarantee-syntax-table syntax-table 'LOAD)))
        (purify?
         (if (or (default-object? purify?)
                 (eq? purify? default-object))

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index cea263b8344d36462273e07086953d1703514eae..7999832a460e3681e77b14e27275aeb04906e14f 100644 (file)
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rep.scm,v 14.47 1993/12/23 08:03:10 cph Exp $
+$Id: rep.scm,v 14.48 1993/12/29 18:36:01 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -754,7 +754,7 @@ MIT in each case. |#
           (package/environment package)))))
 
 (define (gst syntax-table)
-  (guarantee-syntax-table syntax-table)
+  (guarantee-syntax-table syntax-table 'GST)
   (set-repl/syntax-table! (nearest-repl) syntax-table))
 
 (define (re #!optional index)

diff --git a/v7/src/runtime/syntab.scm b/v7/src/runtime/syntab.scm
index 270626e7ed652f3c0d824b9cd3c7f813810dc324..5d006c4ec9685fb04d1f714e5c2ea00b6776f48b 100644 (file)
--- a/v7/src/runtime/syntab.scm
+++ b/v7/src/runtime/syntab.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/Attic/syntab.scm,v 14.3 1989/05/25 16:23:46 cph Rel $
+$Id: syntab.scm,v 14.4 1993/12/29 18:35:39 cph Exp $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -46,14 +46,15 @@ MIT in each case. |#
   (%make-syntax-table '()
                      (if (default-object? parent)
                          false
-                         (guarantee-syntax-table parent))))
+                         (guarantee-syntax-table parent 'MAKE-SYNTAX-TABLE))))
 
-(define (guarantee-syntax-table table)
-  (if (not (syntax-table? table)) (error "Illegal syntax table" table))
+(define (guarantee-syntax-table table procedure)
+  (if (not (syntax-table? table))
+      (error:wrong-type-argument table "syntax table" procedure))
   table)
 
 (define (syntax-table/ref table name)
-  (guarantee-syntax-table table)
+  (guarantee-syntax-table table 'SYNTAX-TABLE/REF)
   (let loop ((table table))
     (and table
         (let ((entry (assq name (syntax-table/alist table))))
@@ -65,7 +66,7 @@ MIT in each case. |#
   syntax-table/ref)
 
 (define (syntax-table/define table name transform)
-  (guarantee-syntax-table table)
+  (guarantee-syntax-table table 'SYNTAX-TABLE/DEFINE)
   (let ((entry (assq name (syntax-table/alist table))))
     (if entry
        (set-cdr! entry transform)
@@ -80,12 +81,12 @@ MIT in each case. |#
   (map car (syntax-table/alist table)))
 
 (define (syntax-table/copy table)
-  (guarantee-syntax-table table)
+  (guarantee-syntax-table table 'SYNTAX-TABLE/COPY)
   (let loop ((table table))
     (and table
         (%make-syntax-table (alist-copy (syntax-table/alist table))
                             (loop (syntax-table/parent table))))))
 
 (define (syntax-table/extend table alist)
-  (guarantee-syntax-table table)
+  (guarantee-syntax-table table 'SYNTAX-TABLE/EXTEND)
   (%make-syntax-table (alist-copy alist) table))
\ No newline at end of file

diff --git a/v8/src/runtime/load.scm b/v8/src/runtime/load.scm
index f8ab747ed0ebedb0a7d4e352282004c964db7c88..c02282a75133c3d55d676507384dbb206b49ab1b 100644 (file)
--- a/v8/src/runtime/load.scm
+++ b/v8/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.47 1993/11/21 22:56:50 cph Exp $
+$Id: load.scm,v 14.48 1993/12/29 18:35:47 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -85,7 +85,7 @@ MIT in each case. |#
         (if (or (default-object? syntax-table)
                 (eq? syntax-table default-object))
             default-object
-            (guarantee-syntax-table syntax-table)))
+            (guarantee-syntax-table syntax-table 'LOAD)))
        (purify?
         (if (or (default-object? purify?)
                 (eq? purify? default-object))