2004-11-27 22:26:05 -05:00
|
|
|
IN: scratchpad
|
|
|
|
USE: inference
|
|
|
|
USE: lists
|
|
|
|
USE: math
|
|
|
|
USE: test
|
|
|
|
USE: logic
|
|
|
|
USE: combinators
|
|
|
|
|
2004-11-28 19:07:24 -05:00
|
|
|
! [ t ] [ \ + [ 2 2 + ] dataflow tree-contains? >boolean ] unit-test
|
|
|
|
! [ t ] [ 3 [ [ sq ] [ 3 + ] ifte ] dataflow tree-contains? >boolean ] unit-test
|
|
|
|
!
|
|
|
|
! : inline-test
|
|
|
|
! car car ; inline
|
|
|
|
!
|
|
|
|
! [ t ] [ \ car [ inline-test ] dataflow tree-contains? >boolean ] unit-test
|