sequences: bound -> index-or-length

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

diff --git a/basis/tools/trace/trace.factor b/basis/tools/trace/trace.factor
index 622cfcb6863abcbe10fe5cc3199a145f1b6dc2c6..3f58dbc4532b49bf6e8c9c341edf427d8ae02a22 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* bound tail* ] 2bi
+    [ nip ] [ [ data>> ] [ stack-effect in>> length ] bi* index-or-length tail* ] 2bi
     \ trace-step-state boa ;
 
 : print-step ( continuation -- )