steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove bogus test in lint

db4
Doug Coleman 2011-10-14 09:40:36 -07:00
parent 6586b97128
commit 6553510494
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/lint/lint-tests.factor
View File

@ -6,9 +6,6 @@ IN: lint.tests
[ { { lint1 { [ [ ] if ] } } } ] [ \ lint1 lint-word ] unit-test [ { { lint1 { [ [ ] if ] } } } ] [ \ lint1 lint-word ] unit-test
: lint2 ( n -- n' ) 1 + ; ! 1+
[ { [ 1 + ] } ] [ \ lint2 lint ] unit-test
: lint3 ( a b -- b a b ) dup -rot ; ! tuck : lint3 ( a b -- b a b ) dup -rot ; ! tuck
[ { { lint3 { [ dup -rot ] } } } ] [ \ lint3 lint-word ] unit-test [ { { lint3 { [ dup -rot ] } } } ] [ \ lint3 lint-word ] unit-test