Fixed bug in type of MAP & FOR-EACH.

This commit is contained in:
shivers 1999-12-17 16:41:39 +00:00
parent 3f23ce432c
commit 85630af86a
1 changed files with 2 additions and 2 deletions

View File

@ -175,8 +175,8 @@
(proc (:value :value &opt (proc (:value :value) :value)) :value))
;; Extended from their R4RS definitions.
(map (proc ((proc (:value) :value) &rest :value) :value))
(for-each (proc ((proc (:value) :values) &rest :value) :unspecific))
(map (proc ((proc (:value &rest :value) :value) :value &rest :value) :value))
(for-each (proc ((proc (:value &rest :value) :values) :value &rest :value) :unspecific))
;; R4RS exports
(cons (proc (:value :value) :pair))