conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed copyright notice to be 2006-2007 instead of 2006.

This commit is contained in:
Abdulaziz Ghuloum 2007-01-11 19:22:32 -05:00
parent 09d9687fdd
commit 6359ca9ee4
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

2
src/libtoplevel.ss
View File

@ -93,7 +93,7 @@
(exit 0)] (exit 0)]
[else [else
(printf "Ikarus Scheme (Build ~a)\n" (compile-time-date-string)) (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) (command-line-arguments args)
(for-each load files) (for-each load files)
(new-cafe) (new-cafe)

3
src/psyntax-7.1.ss
View File

@ -2812,7 +2812,8 @@
(id? (syntax mid)) (id? (syntax mid))
; id receives old wrap so it won't be confused with id of same name ; id receives old wrap so it won't be confused with id of same name
; defined within the module ; 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)))))) (_ (syntax-error (source-wrap e w ae))))))
(define parse-import (define parse-import