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}# #{a\ 483}#
#{b\ 484}#) #{b\ 484}#)
(eq? (syntax->datum (eq? (syntax->datum
#{a\ 483}# #{a\ 483}#)
#:rest))) #:rest))
#{tmp\ 481}#) #{tmp\ 481}#)
#f) #f)
(apply (lambda (#{x\ 485}# (apply (lambda (#{x\ 485}#
@ -639,9 +639,8 @@
#{b\ 487}# #{b\ 487}#
#{req\ 475}# #{req\ 475}#
#{opt\ 476}# #{opt\ 476}#
#f
#{kw\ 477}# #{kw\ 477}#
#{x\ 485}#)) #f))
#{tmp\ 481}#) #{tmp\ 481}#)
((lambda (#{tmp\ 488}#) ((lambda (#{tmp\ 488}#)
(if (if #{tmp\ 488}# (if (if #{tmp\ 488}#
@ -657,9 +656,8 @@
#{b\ 492}# #{b\ 492}#
#{req\ 475}# #{req\ 475}#
#{opt\ 476}# #{opt\ 476}#
#f
#{kw\ 477}# #{kw\ 477}#
#{x\ 491}#)) #f))
#{tmp\ 488}#) #{tmp\ 488}#)
((lambda (#{else\ 493}#) ((lambda (#{else\ 493}#)
(syntax-violation (syntax-violation
@ -1250,7 +1248,8 @@
#{opt\ 496}# #{opt\ 496}#
(cons #t (cons #t
(reverse (reverse
#{rkey\ 497}#)))) #{rkey\ 497}#))
#f))
#{tmp\ 535}#) #{tmp\ 535}#)
((lambda (#{tmp\ 542}#) ((lambda (#{tmp\ 542}#)
(if (if #{tmp\ 542}# (if (if #{tmp\ 542}#
@ -1272,7 +1271,8 @@
#{opt\ 496}# #{opt\ 496}#
(cons #t (cons #t
(reverse (reverse
#{rkey\ 497}#)))) #{rkey\ 497}#))
#f))
#{tmp\ 542}#) #{tmp\ 542}#)
((lambda (#{tmp\ 547}#) ((lambda (#{tmp\ 547}#)
(if (if #{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)))) (pred #'b req opt (cons #t (reverse rkey))))
((aok a b) (and (eq? (syntax->datum #'aok) #:allow-other-keys) ((aok a b) (and (eq? (syntax->datum #'aok) #:allow-other-keys)
(eq? (syntax->datum #'a) #:rest)) (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) ((aok . r) (and (eq? (syntax->datum #'aok) #:allow-other-keys)
(id? #'r)) (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) ((a . b) (eq? (syntax->datum #'a) #:predicate)
(pred #'b req opt (cons #f (reverse rkey)))) (pred #'b req opt (cons #f (reverse rkey))))
((a b) (eq? (syntax->datum #'a) #:rest) ((a b) (eq? (syntax->datum #'a) #:rest)
@ -1680,10 +1680,10 @@
(define (pred args req opt kw) (define (pred args req opt kw)
(syntax-case args () (syntax-case args ()
((x) (check req opt #f kw #'x)) ((x) (check req opt #f kw #'x))
((x a b) (eq? (syntax->datum #'a #:rest)) ((x a b) (eq? (syntax->datum #'a) #:rest)
(rest #'b req opt #f kw #'x)) (rest #'b req opt kw #f))
((x . b) (id? #'b) ((x . b) (id? #'b)
(rest #'b req opt #f kw #'x)) (rest #'b req opt kw #f))
(else (else
(syntax-violation 'lambda* "invalid argument list following #:predicate" (syntax-violation 'lambda* "invalid argument list following #:predicate"
orig-args args)))) orig-args args))))