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

* Unfixes bug 161749: (define-syntax (foo x) 12) does not work

This commit is contained in:
Abdulaziz Ghuloum 2007-11-19 04:18:35 -05:00
parent 79d529b224
commit f417c7505b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/psyntax.expander.ss
View File

@ -55,7 +55,8 @@
((memq (car ls1) ls2) (set-union (cdr ls1) ls2)) ((memq (car ls1) ls2) (set-union (cdr ls1) ls2))
(else (cons (car ls1) (set-union (cdr ls1) ls2))))) (else (cons (car ls1) (set-union (cdr ls1) ls2)))))
(define-syntax (no-source x) #f) (define-syntax no-source
(lambda (x) #f))
;;; the body of a library, when it's first processed, gets this ;;; the body of a library, when it's first processed, gets this
;;; set of marks. ;;; set of marks.
@ -748,9 +749,7 @@
(define parse-define-syntax (define parse-define-syntax
(lambda (x) (lambda (x)
(syntax-match x () (syntax-match x ()
((_ id val) (id? id) (values id val)) ((_ id val) (id? id) (values id val)))))
((_ (id . args) e e* ...) (id? id)
(values id (cons* (bless 'lambda) args e e*))))))
;;; scheme-stx takes a symbol and if it's in the ;;; scheme-stx takes a symbol and if it's in the
;;; (psyntax system $all) library, it creates a fresh identifier ;;; (psyntax system $all) library, it creates a fresh identifier