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

diff --git a/src/gtk/gtk.scm b/src/gtk/gtk.scm
index 0e36be7f4117c9fd2f7f9846ad2a7355fcc0675e..87e4af9c18550d40850467ab120f608da704db20 100644 (file)
--- 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 ()