Add operation to extract defined names from a syntax table.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 146547d9f4c1ff57d0086f1fbe3c2940ce551ae3..cb5e7a7fbc689fa5f6efcf1511aec270665eb375 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.36 1989/04/21 19:25:50 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.37 1989/05/25 16:24:00 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -1577,6 +1577,7 @@ MIT in each case. |#
          syntax-table-ref
          syntax-table/copy
          syntax-table/define
+         syntax-table/defined-names
          syntax-table/extend
          syntax-table/parent
          syntax-table/ref

diff --git a/v7/src/runtime/syntab.scm b/v7/src/runtime/syntab.scm
index c645683ced63e7c08443b0b3c4aec1497d38a159..270626e7ed652f3c0d824b9cd3c7f813810dc324 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.2 1988/06/13 11:52:05 cph Exp $
+$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 $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -76,6 +76,9 @@ MIT in each case. |#
 (define syntax-table-define
   syntax-table/define)
 
+(define (syntax-table/defined-names table)
+  (map car (syntax-table/alist table)))
+
 (define (syntax-table/copy table)
   (guarantee-syntax-table table)
   (let loop ((table table))

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index ceda38c0c2714579807ba994df96ed86b4cb9637..7d40f6a595705d47d750227fb55db00a3ab46d64 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.36 1989/04/21 19:25:50 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.37 1989/05/25 16:24:00 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -1577,6 +1577,7 @@ MIT in each case. |#
          syntax-table-ref
          syntax-table/copy
          syntax-table/define
+         syntax-table/defined-names
          syntax-table/extend
          syntax-table/parent
          syntax-table/ref