From 7f8457fc3cc35a04dcf6694e0de00d8054d91b0b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 29 Dec 1993 18:36:01 +0000
Subject: [PATCH] Change GUARANTEE-SYNTAX-TABLE to take second argument.
---
v7/src/runtime/load.scm | 4 ++--
v7/src/runtime/rep.scm | 4 ++--
v7/src/runtime/syntab.scm | 19 ++++++++++---------
v8/src/runtime/load.scm | 4 ++--
4 files changed, 16 insertions(+), 15 deletions(-)
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))
--
2.25.1