Fixed typo.
This commit is contained in:
parent
82b064a520
commit
12ce9abda6
|
@ -22,7 +22,7 @@
|
||||||
#:with ((candidates ...) (others ...))
|
#:with ((candidates ...) (others ...))
|
||||||
(let-values
|
(let-values
|
||||||
(((candidates others)
|
(((candidates others)
|
||||||
;; clauses of form ((v) rhs), currently only suppose 1 lhs var
|
;; clauses of form ((v) rhs), currently only supports 1 lhs var
|
||||||
(partition (lambda (p)
|
(partition (lambda (p)
|
||||||
(and (isoftype? (cadr p) -InexactComplex)
|
(and (isoftype? (cadr p) -InexactComplex)
|
||||||
(let ((v (car (syntax-e (car p)))))
|
(let ((v (car (syntax-e (car p)))))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user