From 7e5d053fb26d2719b4a012f10438f5ab116630fe Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Fri, 2 May 2008 14:34:03 -0400 Subject: [PATCH] Fixed a bug causing syntax-error traces to print as #[annotation ---] instead of # --- scheme/psyntax.expander.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss index 55300e5..ef3e4a6 100644 --- a/scheme/psyntax.expander.ss +++ b/scheme/psyntax.expander.ss @@ -3809,7 +3809,7 @@ (make-trace x) (map f (stx-ae* x)))] [(annotation? x) - (make-trace x)] + (make-trace (make-stx x '() '() '()))] [else (condition)])))