From 1948dd59427de2ae4558c83d0cc401885ce84f1a Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Tue, 8 May 2007 10:04:00 -0400 Subject: [PATCH] * testing commit of bzr.16 --- src/ikarus.syntax.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/ikarus.syntax.ss b/src/ikarus.syntax.ss index 0ec7901..54ba11e 100644 --- a/src/ikarus.syntax.ss +++ b/src/ikarus.syntax.ss @@ -379,8 +379,8 @@ (unless label (stx-error e "unbound identifier")) (case type - [(lexical core-prim macro global local-macro global-macro - displaced-lexical) + [(lexical core-prim macro global local-macro + global-macro displaced-lexical) (values type (binding-value b) id)] [else (values 'other #f #f)])))] [(syntax-pair? e)