factor: alien.c-types:short -> cramp

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

diff --git a/basis/tools/trace/trace.factor b/basis/tools/trace/trace.factor
index 57f2adb4b49e41dd7373d59bf862d208b75615a3..9888750b377973ca5fe8e96fa03fba40958389ac 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* short tail* ] 2bi
+    [ nip ] [ [ data>> ] [ stack-effect in>> length ] bi* cramp tail* ] 2bi
     \ trace-step-state boa ;
 
 : print-step ( continuation -- )