Fixed bug in type of MAP & FOR-EACH.
This commit is contained in:
parent
67805dde9f
commit
c5cfe8c420
|
@ -175,8 +175,8 @@
|
||||||
(proc (:value :value &opt (proc (:value :value) :value)) :value))
|
(proc (:value :value &opt (proc (:value :value) :value)) :value))
|
||||||
|
|
||||||
;; Extended from their R4RS definitions.
|
;; Extended from their R4RS definitions.
|
||||||
(map (proc ((proc (:value) :value) &rest :value) :value))
|
(map (proc ((proc (:value &rest :value) :value) :value &rest :value) :value))
|
||||||
(for-each (proc ((proc (:value) :values) &rest :value) :unspecific))
|
(for-each (proc ((proc (:value &rest :value) :values) :value &rest :value) :unspecific))
|
||||||
|
|
||||||
;; R4RS exports
|
;; R4RS exports
|
||||||
(cons (proc (:value :value) :pair))
|
(cons (proc (:value :value) :pair))
|
||||||
|
|
Loading…
Reference in New Issue