Move call( and execute( to core

[factor.git] / extra / monads / monads-tests.factor

diff --git a/extra/monads/monads-tests.factor b/extra/monads/monads-tests.factor
index 44234bc4bc538242503e11d55e3664c9439630d2..ee63b14f3c27d999d6556881af3522ab5291957c 100644 (file)
--- a/extra/monads/monads-tests.factor
+++ b/extra/monads/monads-tests.factor
@@ -79,7 +79,7 @@ IN: monads.tests
 LAZY: nats-from ( n -- list )
     dup 1+ nats-from cons ;
 
-: nats 0 nats-from ;
+: nats ( -- list ) 0 nats-from ;
 
 [ 3 ] [
     {