From c2e20a3a68e4193e7bed8bba5a97417543cd0693 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Tue, 25 Mar 2008 21:03:26 -0400 Subject: [PATCH] Fixes bug 206839: map not failing with invalid arguments --- scheme/ikarus.lists.ss | 3 ++- scheme/last-revision | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/scheme/ikarus.lists.ss b/scheme/ikarus.lists.ss index ae645ec..1b508bd 100644 --- a/scheme/ikarus.lists.ss +++ b/scheme/ikarus.lists.ss @@ -606,7 +606,8 @@ [(null? ls) (if (andmap null? ls*) '() - (die who "length mismatch"))])]))) + (die who "length mismatch"))] + [else (die who "not a list" ls)])]))) (module (for-each) (define who 'for-each) diff --git a/scheme/last-revision b/scheme/last-revision index 2107c66..4efaa29 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1429 +1430