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
Kjetil S. Matheussen
Antoine Mathys
Patrick McCarty
Dan McMahill
Roger Mc Murtrie
Scott McPeak

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

File diff suppressed because it is too large Load diff

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

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