compiler.tree.propagation.call-effect: use kernel in test.

diff --git a/basis/compiler/tree/propagation/call-effect/call-effect-tests.factor b/basis/compiler/tree/propagation/call-effect/call-effect-tests.factor
index 7f38ba9d7cd133ec17851084efef34e3dba37bd7..4454c4f2fcbc0819b4b1fc75b260e3479c1aa740 100644 (file)
--- a/basis/compiler/tree/propagation/call-effect/call-effect-tests.factor
+++ b/basis/compiler/tree/propagation/call-effect/call-effect-tests.factor
@@ -162,4 +162,5 @@ TUPLE: my-tuple a b c ;
 ! Regression
 [ composed <class-info> (infer-value) ] [ uninferable? ] must-fail-with
 { t } [ [ 1 ] [ 2 ] compose <literal-info> (infer-value) ( -- x x ) effect= ] unit-test
-{ } [ "IN: compiler.tree.propagation.call-effect.tests USE: kernel.private : blub ( x -- ) { composed } declare call( -- ) ;" eval( -- ) ] unit-test
+{ } [ "IN: compiler.tree.propagation.call-effect.tests USING:
+kernel kernel.private ; : blub ( x -- ) { composed } declare call( -- ) ;" eval( -- ) ] unit-test