From f417c7505b0341e655c828b201a66bcc5128074c Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Mon, 19 Nov 2007 04:18:35 -0500 Subject: [PATCH] * Unfixes bug 161749: (define-syntax (foo x) 12) does not work --- scheme/psyntax.expander.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss index aad5d19..1db0ea1 100644 --- a/scheme/psyntax.expander.ss +++ b/scheme/psyntax.expander.ss @@ -55,7 +55,8 @@ ((memq (car ls1) ls2) (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 ;;; set of marks. @@ -748,9 +749,7 @@ (define parse-define-syntax (lambda (x) (syntax-match x () - ((_ id val) (id? id) (values id val)) - ((_ (id . args) e e* ...) (id? id) - (values id (cons* (bless 'lambda) args e e*)))))) + ((_ id val) (id? id) (values id val))))) ;;; scheme-stx takes a symbol and if it's in the ;;; (psyntax system $all) library, it creates a fresh identifier