mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 20:20:24 +02:00
Code Activity

allow (define* SYM VAL)

Browse source 
* module/ice-9/psyntax.scm (define*): Allow (define* SYM VAL), as 1.8
  did. Thanks to Patrick McCarty for the report.
This commit is contained in:
Andy Wingo 2010-01-11 22:08:07 +01:00
parent 73788ca8be
commit 64fa96ef28
3 changed files with 7721 additions and 7792 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -76,6 +76,7 @@ For fixes or providing information which led to a fix:
Gregory Marton Gregory Marton
Kjetil S. Matheussen Kjetil S. Matheussen
Antoine Mathys Antoine Mathys
Patrick McCarty
Dan McMahill Dan McMahill
Roger Mc Murtrie Roger Mc Murtrie
Scott McPeak Scott McPeak

15503
module/ice-9/psyntax-pp.scm
View file

File diff suppressed because it is too large Load diff

9
module/ice-9/psyntax.scm
View file

@ -2783,6 +2783,9 @@
#'(e x (... ...))))))))) #'(e x (... ...)))))))))
(define-syntax define* (define-syntax define*
(syntax-rules () (lambda (x)
((_ (id . args) b0 b1 ...) (syntax-case x ()
(define id (lambda* args b0 b1 ...))))) ((_ (id . args) b0 b1 ...)
#'(define id (lambda* args b0 b1 ...)))
((_ id val) (identifier? #'x)
#'(define id val)))))