From 1f9c6d472efd976d593a4babbff413c26d58e4ab Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Mon, 26 May 2008 17:02:23 -0400
Subject: [PATCH] Removing map test, poor implementation

---
 extra/lisp/lisp-tests.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index e260857a37..2358fa3f7e 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -14,7 +14,6 @@ IN: lisp.test
     "-" "math" "-" define-primitive
     
     "list" [ >array ] lisp-define
-    "map" [ [ swap map ] compose call ] lisp-define
     
     { 5 } [
       [ 2 3 ] "+" <lisp-symbol> funcall
@@ -51,4 +50,5 @@ IN: lisp.test
     { { 1 2 3 4 5 } } [
       "(list 1 2 3 4 5)" lisp-eval
     ] unit-test
-] with-interactive-vocabs
\ No newline at end of file
+
+] with-interactive-vocabs