steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/mandel.factor
View File

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