lint: disabling tuck test.

diff --git a/extra/lint/lint-tests.factor b/extra/lint/lint-tests.factor
index dd3e2053d376f8c408267a4e9ad6914b000b1ea2..bab2171675a3be963c530f5b0b09565a480ffbc2 100644 (file)
--- 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 ;