mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Fix typos in psyntax.scm

Browse source 
* module/ice-9/psyntax.scm (gen-syntax-case): #'pad --> #'pat
  (define*): #'x --> #'id

* module/ice-9/psyntax-pp.scm: Regenerate
This commit is contained in:
Mark H Weaver 2012-03-02 17:54:23 -05:00
parent dab48cc567
commit 9120f130a8
2 changed files with 8604 additions and 8531 deletions
Download patch file Download diff file Expand all files Collapse all files

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

File diff suppressed because it is too large Load diff

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

@ -2451,7 +2451,7 @@
(if (and (id? #'pat)
(and-map (lambda (x) (not (free-id=? #'pat x)))
(cons #'(... ...) keys)))
(if (free-id=? #'pad #'_)
(if (free-id=? #'pat #'_)
(expand #'exp r empty-wrap mod)
(let ((labels (list (gen-label)))
(var (gen-var #'pat)))
@ -3053,5 +3053,5 @@
(syntax-case x ()
((_ (id . args) b0 b1 ...)
#'(define id (lambda* args b0 b1 ...)))
((_ id val) (identifier? #'x)
((_ id val) (identifier? #'id)
#'(define id val)))))