From 1ecf5e9c13a66bc964eebeaa9037c2e7635eec0e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 25 May 1989 16:24:00 +0000 Subject: [PATCH] Add operation to extract defined names from a syntax table. --- v7/src/runtime/runtime.pkg | 3 ++- v7/src/runtime/syntab.scm | 7 +++++-- v8/src/runtime/runtime.pkg | 3 ++- 3 files changed, 9 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 146547d9f..cb5e7a7fb 100644 --- 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 c645683ce..270626e7e 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.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 ceda38c0c..7d40f6a59 100644 --- 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 -- 2.25.1