Don't close the identifier of a definition.

diff --git a/v7/src/runtime/parser-buffer.scm b/v7/src/runtime/parser-buffer.scm
index 3e7812718dced294e4178c0e4200ee0585853368..cf7ca65bc7a5289ea7209ccdf13e89604fca21ca 100644 (file)
--- a/v7/src/runtime/parser-buffer.scm
+++ b/v7/src/runtime/parser-buffer.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: parser-buffer.scm,v 1.3 2002/02/03 03:38:56 cph Exp $
+;;; $Id: parser-buffer.scm,v 1.4 2002/02/22 01:33:48 cph Exp $
 ;;;
 ;;; Copyright (c) 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -192,10 +192,8 @@
       (sc-macro-transformer
        (lambda (form environment)
         (let ((suffix (cadr form)))
-          `(DEFINE (,(close-syntax
-                      (intern
-                       (string-append "match-parser-buffer-string" suffix))
-                      environment)
+          `(DEFINE (,(intern
+                      (string-append "match-parser-buffer-string" suffix))
                     BUFFER STRING)
              (,(close-syntax
                 (intern
@@ -212,10 +210,8 @@
       (sc-macro-transformer
        (lambda (form environment)
         (let ((suffix (cadr form)))
-          `(DEFINE (,(close-syntax
-                      (intern
-                       (string-append "match-parser-buffer-substring" suffix))
-                      environment)
+          `(DEFINE (,(intern
+                      (string-append "match-parser-buffer-substring" suffix))
                     BUFFER STRING START END)
              (LET ((N (FIX:- END START)))
                (AND (GUARANTEE-BUFFER-CHARS BUFFER N)
@@ -237,12 +233,10 @@
       (sc-macro-transformer
        (lambda (form environment)
         (let ((suffix (cadr form)))
-          `(DEFINE (,(close-syntax
-                      (intern
-                       (string-append "match-parser-buffer-substring"
-                                      suffix
-                                      "-no-advance"))
-                      environment)
+          `(DEFINE (,(intern
+                      (string-append "match-parser-buffer-substring"
+                                     suffix
+                                     "-no-advance"))
                     BUFFER STRING START END)
              (LET ((N (FIX:- END START)))
                (AND (GUARANTEE-BUFFER-CHARS BUFFER N)

diff --git a/v7/src/runtime/rgxcmp.scm b/v7/src/runtime/rgxcmp.scm
index 8cbf2fcd30077e62b763d82b61c8cd8df4f95f95..df5fef8163b73ab7d028ffcf4c38228a04aea7c1 100644 (file)
--- a/v7/src/runtime/rgxcmp.scm
+++ b/v7/src/runtime/rgxcmp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rgxcmp.scm,v 1.120 2002/02/09 06:09:59 cph Exp $
+;;; $Id: rgxcmp.scm,v 1.121 2002/02/22 01:33:26 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2002 Massachusetts Institute of Technology
 ;;;
@@ -29,7 +29,8 @@
 (define-syntax define-enumeration
   (sc-macro-transformer
    (lambda (form environment)
-     (let ((name (close-syntax (cadr form) environment))
+     environment
+     (let ((name (cadr form))
           (prefix (caddr form))
           (suffixes (cdddr form)))
        `(BEGIN

diff --git a/v7/src/sf/object.scm b/v7/src/sf/object.scm
index 83c2deca287abdfa92680979de1f458bc6fa13c4..9e534e63e2caaa40e6f8c778745bfe2b82ca43bd 100644 (file)
--- a/v7/src/sf/object.scm
+++ b/v7/src/sf/object.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: object.scm,v 4.14 2002/02/09 06:17:50 cph Exp $
+$Id: object.scm,v 4.15 2002/02/22 01:34:04 cph Exp $
 
 Copyright (c) 1987-1999, 2001, 2002 Massachusetts Institute of Technology
 
@@ -135,8 +135,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
                 (NAMED
                  ,(close-syntax (symbol-append name '/ENUMERAND) environment))
                 (CONC-NAME ,(symbol-append name '/))
-                (CONSTRUCTOR
-                 ,(close-syntax (symbol-append name '/MAKE) environment)))
+                (CONSTRUCTOR ,(symbol-append name '/MAKE)))
              ,@(if scode?
                    `((scode #f read-only #t))
                    `())