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

use 1|| in ascii vocab

db4
Doug Coleman 2008-08-29 00:30:13 -05:00
parent cb4e9f2f77
commit 98bbf464a2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/ascii/ascii.factor
View File

@ -1,6 +1,7 @@
! Copyright (C) 2005, 2008 Slava Pestov. ! Copyright (C) 2005, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel math math.order sequences ; USING: kernel math math.order sequences
combinators.short-circuit ;
IN: ascii IN: ascii
: blank? ( ch -- ? ) " \t\n\r" member? ; inline : blank? ( ch -- ? ) " \t\n\r" member? ; inline
@ -20,7 +21,7 @@ IN: ascii
dup printable? [ "\"\\" member? not ] [ drop f ] if ; inline dup printable? [ "\"\\" member? not ] [ drop f ] if ; inline
: Letter? ( ch -- ? ) : Letter? ( ch -- ? )
dup letter? [ drop t ] [ LETTER? ] if ; inline [ [ letter? ] [ LETTER? ] ] 1|| ;
: alpha? ( ch -- ? ) : alpha? ( ch -- ? )
dup Letter? [ drop t ] [ digit? ] if ; inline [ [ Letter? ] [ digit? ] ] 1|| ;