Don't need special structure tag for `syntax-table' any more -- normal

tag will do.

diff --git a/v7/src/edwin/syntax.scm b/v7/src/edwin/syntax.scm
index 999274d1dbeebf0eadfdb8a30aaf29bb4e05e180..b864bc1db2c53640ed271683a53d949a2959710f 100644 (file)
--- a/v7/src/edwin/syntax.scm
+++ b/v7/src/edwin/syntax.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/syntax.scm,v 1.67 1989/04/15 00:53:13 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/syntax.scm,v 1.68 1989/04/17 22:27:11 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -54,12 +54,8 @@ this is because Newline occurs often when it doesn't indicate
 a comment ending."
   false)
 
-(define-structure (syntax-table
-                  ;; This is named to prevent reusing `syntax-table'
-                  ;; variable to hold the tag (the default behavior).
-                  (named (string->symbol "#[(edwin)syntax-table]"))
-                  (constructor %make-syntax-table)
-                  (conc-name syntax-table/))
+(define-structure (syntax-table (constructor %make-syntax-table)
+                               (conc-name syntax-table/))
   (entries false read-only true))
 
 (define (guarantee-syntax-table syntax-table)