Removed obsolete vocab

db4
Slava Pestov 2008-02-07 01:36:11 -06:00
parent 5ecf3f7225
commit b5e1edfeed
2 changed files with 0 additions and 16 deletions

View File

@ -1 +0,0 @@
Slava Pestov

View File

@ -1,15 +0,0 @@
! Copyright (C) 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: effects sequences kernel arrays quotations inference
tools.test words ;
IN: tools.test.inference
: short-effect
dup effect-in length swap effect-out length 2array ;
: unit-test-effect ( effect quot -- )
>r 1quotation r> [ infer short-effect ] curry unit-test ;
: must-infer ( word/quot -- )
dup word? [ 1quotation ] when
[ infer drop ] curry [ ] swap unit-test ;