From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 29 Dec 1993 18:36:01 +0000 (+0000)
Subject: Change GUARANTEE-SYNTAX-TABLE to take second argument.
X-Git-Tag: 20090517-FFI~7339
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7f8457fc3cc35a04dcf6694e0de00d8054d91b0b;p=mit-scheme.git

Change GUARANTEE-SYNTAX-TABLE to take second argument.
---

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index f8ab747ed..c02282a75 100644
--- 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 cea263b83..7999832a4 100644
--- 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 270626e7e..5d006c4ec 100644
--- 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 f8ab747ed..c02282a75 100644
--- 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))