: inline-recursive ( -- ) inline-recursive ; inline recursive
-{ t } [ \ inline-recursive build-tree [ #recursive? ] any? ] unit-test
+[ t ] [ \ inline-recursive build-tree [ #recursive? ] any? ] unit-test
: bad-recursion-1 ( a -- b )
dup [ drop bad-recursion-1 5 ] [ ] if ;