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

Fix typos in `psyntax'.

Browse source 
* module/ice-9/psyntax.scm (lambda*-formals): Fix argument count in
  `rest' invocations.
  [pred]: Fix argument count in `syntax->datum' invocation.
This commit is contained in:
Ludovic Courtès 2009-11-07 19:19:16 +01:00
parent ae03cf1f59
commit cdd73a8d69
2 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -628,8 +628,8 @@
#{a\ 483}#
#{b\ 484}#)
(eq? (syntax->datum
#{a\ 483}#
#:rest)))
#{a\ 483}#)
#:rest))
#{tmp\ 481}#)
#f)
(apply (lambda (#{x\ 485}#
@ -639,9 +639,8 @@
#{b\ 487}#
#{req\ 475}#
#{opt\ 476}#
#f
#{kw\ 477}#
#{x\ 485}#))
#f))
#{tmp\ 481}#)
((lambda (#{tmp\ 488}#)
(if (if #{tmp\ 488}#
@ -657,9 +656,8 @@
#{b\ 492}#
#{req\ 475}#
#{opt\ 476}#
#f
#{kw\ 477}#
#{x\ 491}#))
#f))
#{tmp\ 488}#)
((lambda (#{else\ 493}#)
(syntax-violation
@ -1250,7 +1248,8 @@
#{opt\ 496}#
(cons #t
(reverse
#{rkey\ 497}#))))
#{rkey\ 497}#))
#f))
#{tmp\ 535}#)
((lambda (#{tmp\ 542}#)
(if (if #{tmp\ 542}#
@ -1272,7 +1271,8 @@
#{opt\ 496}#
(cons #t
(reverse
#{rkey\ 497}#))))
#{rkey\ 497}#))
#f))
#{tmp\ 542}#)
((lambda (#{tmp\ 547}#)
(if (if #{tmp\ 547}#

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

@ -1664,10 +1664,10 @@
(pred #'b req opt (cons #t (reverse rkey))))
((aok a b) (and (eq? (syntax->datum #'aok) #:allow-other-keys)
(eq? (syntax->datum #'a) #:rest))
(rest #'b req opt (cons #t (reverse rkey))))
(rest #'b req opt (cons #t (reverse rkey)) #f))
((aok . r) (and (eq? (syntax->datum #'aok) #:allow-other-keys)
(id? #'r))
(rest #'r req opt (cons #t (reverse rkey))))
(rest #'r req opt (cons #t (reverse rkey)) #f))
((a . b) (eq? (syntax->datum #'a) #:predicate)
(pred #'b req opt (cons #f (reverse rkey))))
((a b) (eq? (syntax->datum #'a) #:rest)
@ -1680,10 +1680,10 @@
(define (pred args req opt kw)
(syntax-case args ()
((x) (check req opt #f kw #'x))
((x a b) (eq? (syntax->datum #'a #:rest))
(rest #'b req opt #f kw #'x))
((x a b) (eq? (syntax->datum #'a) #:rest)
(rest #'b req opt kw #f))
((x . b) (id? #'b)
(rest #'b req opt #f kw #'x))
(rest #'b req opt kw #f))
(else
(syntax-violation 'lambda* "invalid argument list following #:predicate"
orig-args args))))