Cleanup some lint warnings.

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

diff --git a/basis/tools/trace/trace.factor b/basis/tools/trace/trace.factor
index f7f0ae4a695dd0b505ed1c743239945cdcccf6ca..fcc76071dc739113fc78ad609faf0cd3b11f6428 100644 (file)
--- a/basis/tools/trace/trace.factor
+++ b/basis/tools/trace/trace.factor
@@ -15,7 +15,7 @@ exclude-vocabs { "math" "accessors" } swap set-global
 <PRIVATE
 
 : callstack-depth ( callstack -- n )
-    callstack>array length 2/ ;
+    callstack>array midpoint@ ;
 
 SYMBOL: end
 
@@ -87,4 +87,4 @@ PRIVATE>
     [ break ] [ end drop ] surround
     with-variable ;
 
-<< \ trace t "no-compile" set-word-prop >>
\ No newline at end of file
+<< \ trace t "no-compile" set-word-prop >>