Commit d04c70f5 authored by Bernd Paysan's avatar Bernd Paysan

spaces doesn't need 0 max

parent c123cff0
......@@ -126,7 +126,7 @@ Variable timer-list
: .times ( -- )
[: dup body> >name name>string 1 /string
tuck type 8 swap - 0 max spaces ." : "
tuck type 8 swap - spaces ." : "
2@ d>f 1n f* f. cr ;] map-timer ;
: !time ( -- ) ntime timer-tick 2! ;
......
......@@ -1408,7 +1408,7 @@ Variable mirrored-link \ linked list for mirrored regions
WHILE cr
0 >rlink - >r
r@ >rname count tuck type
12 swap - 0 max spaces space
12 swap - spaces space
." Start: " r@ >rstart @ dup .addr space
." End: " r@ >rlen @ + .addr space
." DP: " r> >rdp @ .addr
......
......@@ -69,7 +69,7 @@ get-current also see-voc definitions
save-see-flags
NoFine 10 XPos !
dbg-ip @ DisplayMode c-pass ! Analyse drop
25 XPos @ - 0 max spaces ." -> "
25 XPos @ - spaces ." -> "
restore-see-flags ;
: get-next ( -- n | n n )
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment