From 6afc9f964d7e87a0c3636241fcc5bbd03e5f7b13 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 3 Nov 2009 12:57:38 +0900 Subject: [PATCH] stripping syntactic-closures in syntax-rules error messages --- init.scm | 3 ++- opcodes.c | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/init.scm b/init.scm index f286a48f..4e971d9f 100644 --- a/init.scm +++ b/init.scm @@ -719,7 +719,8 @@ (map (lambda (clause) (expand-pattern (car clause) (cadr clause))) forms) - (list (list _error "no expansion for" _expr)))))))))) + (list (list _error "no expansion for" + (list (rename 'strip-syntactic-closures) _expr))))))))))) (define *config-env* #f) diff --git a/opcodes.c b/opcodes.c index 8f29fca7..55c859bd 100644 --- a/opcodes.c +++ b/opcodes.c @@ -101,6 +101,7 @@ _FN1(SEXP_PAIR, "string-concatenate", 0, sexp_string_concatenate), _FN2(0, SEXP_PAIR, "memq", 0, sexp_memq), _FN2(0, SEXP_PAIR, "assq", 0, sexp_assq), _FN3(SEXP_ENV, SEXP_PAIR, "make-syntactic-closure", 0, sexp_make_synclo), +_FN1(0, "strip-syntactic-closures", 0, sexp_strip_synclos), _PARAM("current-input-port", (sexp)"*current-input-port*", SEXP_IPORT), _PARAM("current-output-port", (sexp)"*current-output-port*", SEXP_OPORT), _PARAM("current-error-port", (sexp)"*current-error-port*", SEXP_OPORT),