Fix a stack underflow
parent
7a5407d19c
commit
e3ce229c1f
|
@ -75,7 +75,7 @@ SYMBOL: *calling*
|
||||||
"executing quotation..." print flush
|
"executing quotation..." print flush
|
||||||
[ call ] micro-time >r
|
[ call ] micro-time >r
|
||||||
"resetting annotations..." print flush
|
"resetting annotations..." print flush
|
||||||
swap reset-vocab
|
reset-vocab
|
||||||
correct-for-timing-overhead
|
correct-for-timing-overhead
|
||||||
"total time:" write r> pprint
|
"total time:" write r> pprint
|
||||||
print-word-timings ;
|
print-word-timings ;
|
Loading…
Reference in New Issue