Minor tweak

release
slava 2006-05-09 17:48:43 +00:00
parent 3b6cccb620
commit 9f62c309c7
1 changed files with 1 additions and 1 deletions

View File

@ -88,7 +88,7 @@ SYMBOL: cols
: render ( -- )
height [
width [
2dup swap c 0 nb-iter iter dup 0 = [
2dup swap c 0 nb-iter iter dup zero? [
drop "\0\0\0"
] [
cols get [ length mod ] keep nth