Verified Commit d04c70f5 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

spaces doesn't need 0 max

parent c123cff0

assert.fs

+1 −1
Original line number Diff line number Diff line
@@ -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! ;

cross.fs

+1 −1
Original line number Diff line number Diff line
@@ -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

debug.fs

+1 −1
Original line number Diff line number Diff line
@@ -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 )