factor/basis/compiler/tree/builder/builder-tests.factor

IN: compiler.tree.builder.tests
USING: compiler.tree.builder tools.test sequences kernel
compiler.tree ;

\ build-tree must-infer
\ build-tree-with must-infer
\ build-tree-from-word must-infer

: inline-recursive ( -- ) inline-recursive ; inline recursive

[ t ] [ \ inline-recursive build-tree-from-word [ #recursive? ] any? nip ] unit-test
Working on sparse conditional constant propagation and untupling 2008-07-24 00:50:21 -04:00			`IN: compiler.tree.builder.tests`
Debugging new optimizer 2008-08-15 00:35:19 -04:00			`USING: compiler.tree.builder tools.test sequences kernel`
			`compiler.tree ;`
Working on sparse conditional constant propagation and untupling 2008-07-24 00:50:21 -04:00
			`\ build-tree must-infer`
			`\ build-tree-with must-infer`
			`\ build-tree-from-word must-infer`
Debugging new optimizer 2008-08-15 00:35:19 -04:00
			`: inline-recursive ( -- ) inline-recursive ; inline recursive`

renaming: contain? -> any?, deep-contains? -> deep-any?, pad-left -> pad-head, pad-right -> pad-tail, trim-left -> trim-head, trim-right -> trim-tail 2009-01-29 23:19:07 -05:00			`[ t ] [ \ inline-recursive build-tree-from-word [ #recursive? ] any? nip ] unit-test`