core: cramp -> bound (was short)

[factor.git] / basis / tools / trace / trace.factor

diff --git a/basis/tools/trace/trace.factor b/basis/tools/trace/trace.factor
index 9888750b377973ca5fe8e96fa03fba40958389ac..622cfcb6863abcbe10fe5cc3199a145f1b6dc2c6 100644 (file)
--- a/basis/tools/trace/trace.factor
+++ b/basis/tools/trace/trace.factor
@@ -33,7 +33,7 @@ M: trace-step-state summary
     ] "" make ;
 
 : <trace-step> ( continuation word -- trace-step )
-    [ nip ] [ [ data>> ] [ stack-effect in>> length ] bi* cramp tail* ] 2bi
+    [ nip ] [ [ data>> ] [ stack-effect in>> length ] bi* bound tail* ] 2bi
     \ trace-step-state boa ;
 
 : print-step ( continuation -- )