From 85630af86a9d5012164ec585faa070e400a8e097 Mon Sep 17 00:00:00 2001 From: shivers Date: Fri, 17 Dec 1999 16:41:39 +0000 Subject: [PATCH] Fixed bug in type of MAP & FOR-EACH. --- scsh/lib/list-pack.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scsh/lib/list-pack.scm b/scsh/lib/list-pack.scm index a2f4b67..bafb5d5 100644 --- a/scsh/lib/list-pack.scm +++ b/scsh/lib/list-pack.scm @@ -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))