spaces doesn't need 0 max

9898618a · Bernd Paysan · 0b0ef6df · 9898618a
Commit 9898618a authored Aug 29, 2017 by Bernd Paysan
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

vt100key.fs vt100key.fs +1 -1

No files found.
--- a/vt100key.fs
+++ b/vt100key.fs
@@ -37,7 +37,7 @@ Table: (Ftast
  path  free? flush noop  decimal hex [

 | : .names $30 bounds DO  i @ >name count $1F and under type
-                          8 swap - 0 max spaces  cell +LOOP ;
+                          8 swap - spaces  cell +LOOP ;

 : help ( -- ) FORTHstart 2+
  5 0 DO cr count 2dup cols over - 2/ spaces type + LOOP drop