From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Mon, 5 Sep 2011 23:02:26 +0000 (-0700)
Subject: Replaced only er-macro- with an rsc-... can't decide.
X-Git-Tag: mit-scheme-pucked-9.2.12~623
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=198322b16269bfbcacd4cdda61c96ed591afb562;p=mit-scheme.git

Replaced only er-macro- with an rsc-... can't decide.
---

diff --git a/src/gtk/gtk.scm b/src/gtk/gtk.scm
index 0e36be7f4..87e4af9c1 100644
--- a/src/gtk/gtk.scm
+++ b/src/gtk/gtk.scm
@@ -27,7 +27,7 @@ USA.
 (define c-includes (load-c-includes "gtk"))
 
 (define-syntax define-integrable-operator
-  (er-macro-transformer
+  #;(er-macro-transformer
    (lambda (form rename compare)
      (declare (ignore compare))
      (cond ((syntax-match? '((IDENTIFIER . MIT-BVL) + FORM) (cdr form))
@@ -38,7 +38,16 @@ USA.
 		(,r-declare (INTEGRATE-OPERATOR ,(caadr form)))
 		(,r-define ,@(cdr form)))))
 	   (else
-	    (ill-formed-syntax form))))))
+	    (ill-formed-syntax form)))))
+
+  (rsc-macro-transformer
+   (lambda (form environment)
+     (declare (ignore environment))
+     (if (syntax-match? '((IDENTIFIER . MIT-BVL) + FORM) (cdr form))
+	 `(BEGIN
+	   (DECLARE (INTEGRATE-OPERATOR ,(caadr form)))
+	   (DEFINE ,@(cdr form)))
+	 (ill-formed-syntax form)))))
 
 (define-syntax error-if-null
   (syntax-rules ()