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

Made (define foo) expand to (define foo (void)).

This commit is contained in:
Abdulaziz Ghuloum 2008-01-18 22:18:26 -05:00
parent 8adb1639f0
commit 6018e2200d
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1341 1342

4
scheme/psyntax.expander.ss
View File

@ -786,7 +786,9 @@
((_ (id . fmls) b b* ...) (id? id) ((_ (id . fmls) b b* ...) (id? id)
(values id (cons 'defun (cons fmls (cons b b*))))) (values id (cons 'defun (cons fmls (cons b b*)))))
((_ id val) (id? id) ((_ id val) (id? id)
(values id (cons 'expr val)))))) (values id (cons 'expr val)))
((_ id) (id? id)
(values id (cons 'expr (bless '(void))))))))
(define parse-define-syntax (define parse-define-syntax
(lambda (x) (lambda (x)