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

Fix indentation in read-token

release
Erik Charlebois 2010-04-12 01:15:49 -07:00
parent 3d4dadffe2
commit 0448c867e2
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/images/pbm/pbm.factor
View File

@ -1,10 +1,9 @@
! Copyright (C) 2010 Erik Charlebois. ! Copyright (C) 2010 Erik Charlebois.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types arrays ascii bit-arrays byte-arrays USING: accessors arrays ascii bit-arrays byte-arrays combinators
combinators continuations grouping images images.loader io continuations grouping images images.loader io io.encodings.ascii
io.encodings.ascii io.encodings.string kernel locals make math io.encodings.string kernel locals make math math.functions math.parser
math.functions math.parser sequences specialized-arrays ; sequences ;
SPECIALIZED-ARRAY: ushort
IN: images.pbm IN: images.pbm
SINGLETON: pbm-image SINGLETON: pbm-image
@ -12,9 +11,11 @@ SINGLETON: pbm-image
<PRIVATE <PRIVATE
: read-token ( -- token ) : read-token ( -- token )
[ read1 dup blank? [
read1 dup blank?
[ t ] [ t ]
[ dup CHAR: # = [
dup CHAR: # =
[ "\n" read-until 2drop t ] [ "\n" read-until 2drop t ]
[ f ] if [ f ] if
] if ] if