From 198322b16269bfbcacd4cdda61c96ed591afb562 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 5 Sep 2011 16:02:26 -0700 Subject: [PATCH] Replaced only er-macro- with an rsc-... can't decide. --- src/gtk/gtk.scm | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) 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 () -- 2.25.1