From 6ecf82a2ef689b3c2c1361f8da89cf16f6937ac1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 6 Aug 2012 07:57:35 -0700
Subject: [PATCH] lint: disabling tuck test.

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

diff --git a/extra/lint/lint-tests.factor b/extra/lint/lint-tests.factor
index dd3e2053d3..bab2171675 100644
--- a/extra/lint/lint-tests.factor
+++ b/extra/lint/lint-tests.factor
@@ -6,9 +6,9 @@ IN: lint.tests
 
 [ { { lint1 { [ [ ] if ] } } } ] [ \ lint1 lint-word ] unit-test
 
-: lint2 ( a b -- b a b ) dup -rot ; ! tuck
+! : lint2 ( a b -- b a b ) dup -rot ; ! tuck
 
-[ { { lint2 { [ dup -rot ] } } } ] [ \ lint2 lint-word ] unit-test
+! [ { { lint2 { [ dup -rot ] } } } ] [ \ lint2 lint-word ] unit-test
 
 : lint3 ( seq -- seq ) [ 0 swap nth 1 + ] map ;