diff --git a/src/ikarus.boot b/src/ikarus.boot index 84ee889..964cb9b 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/libtoplevel.ss b/src/libtoplevel.ss index ac9a89e..43c4569 100644 --- a/src/libtoplevel.ss +++ b/src/libtoplevel.ss @@ -93,7 +93,7 @@ (exit 0)] [else (printf "Ikarus Scheme (Build ~a)\n" (compile-time-date-string)) - (display "Copyright (c) 2006 Abdulaziz Ghuloum\n\n") + (display "Copyright (c) 2006-2007 Abdulaziz Ghuloum\n\n") (command-line-arguments args) (for-each load files) (new-cafe) diff --git a/src/psyntax-7.1.ss b/src/psyntax-7.1.ss index 0f2fc81..0616a2d 100644 --- a/src/psyntax-7.1.ss +++ b/src/psyntax-7.1.ss @@ -2812,7 +2812,8 @@ (id? (syntax mid)) ; id receives old wrap so it won't be confused with id of same name ; defined within the module - (values (syntax orig) (wrap (syntax mid) w) (listify (syntax (ex ...))) (map (lambda (x) (wrap x *w)) (syntax (form ...))))) + (values (syntax orig) (wrap (syntax mid) w) (listify (syntax (ex ...))) + (map (lambda (x) (wrap x *w)) (syntax (form ...))))) (_ (syntax-error (source-wrap e w ae)))))) (define parse-import