From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 22 Feb 2002 01:34:04 +0000 (+0000)
Subject: Don't close the identifier of a definition.
X-Git-Tag: 20090517-FFI~2227
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=74025ad4baf2a70dadefd0c63dd3a4793dee5c7c;p=mit-scheme.git

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 3e7812718..cf7ca65bc 100644
--- 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 8cbf2fcd3..df5fef816 100644
--- 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 83c2deca2..9e534e63e 100644
--- 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))
 		    `())