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

lint: disabling tuck test.

John Benediktsson 2012-08-06 07:57:35 -07:00
parent 351dcc209a
commit 6ecf82a2ef
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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 ;