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

core: Remove trailing whitespace.

db4
Doug Coleman 2014-10-31 01:14:31 -07:00
parent 5e16e54b98
commit 632ee276e1
6 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/classes/algebra/algebra.factor
View File

@ -162,7 +162,7 @@ PREDICATE: nontrivial-anonymous-intersection < anonymous-intersection
{ [ dup anonymous-union? ] [ { [ dup anonymous-union? ] [
members>> members>>
[ class-not normalize-class ] map [ class-not normalize-class ] map
<anonymous-intersection> <anonymous-intersection>
] } ] }
{ [ dup anonymous-intersection? ] [ { [ dup anonymous-intersection? ] [
participants>> participants>>

2
core/hashtables/hashtables.factor
View File

@ -59,7 +59,7 @@ TUPLE: hashtable
! !
! if empty? is f: ! if empty? is f:
! - we want to store into i ! - we want to store into i
! !
! if empty? is t: ! if empty? is t:
! - we want to store into j if j is not f ! - we want to store into j if j is not f
! - otherwise we want to store into i ! - otherwise we want to store into i

2
core/io/encodings/utf16/utf16.factor
View File

@ -40,7 +40,7 @@ ERROR: missing-bom ;
[ 0b11 bitand quad-be ] [ 0b11 bitand quad-be ]
[ drop ignore ] if [ drop ignore ] if
] [ double-be ] if ; ] [ double-be ] if ;
M: utf16be decode-char M: utf16be decode-char
drop dup stream-read1 dup [ begin-utf16be ] when nip ; drop dup stream-read1 dup [ begin-utf16be ] when nip ;

2
core/io/encodings/utf8/utf8.factor
View File

@ -8,7 +8,7 @@ IN: io.encodings.utf8
SINGLETON: utf8 SINGLETON: utf8
<PRIVATE <PRIVATE
: starts-2? ( char -- ? ) : starts-2? ( char -- ? )
dup [ -6 shift 0b10 number= ] when ; inline dup [ -6 shift 0b10 number= ] when ; inline

4
core/math/parser/parser.factor
View File

@ -263,14 +263,14 @@ DEFER: @neg-digit
[ @neg-digit ] [ @neg-digit ]
} case ; inline } case ; inline
: @first-char ( i number-parse n char -- n/f ) : @first-char ( i number-parse n char -- n/f )
{ {
{ CHAR: - [ [ @neg-first-digit ] require-next-digit ?neg ] } { CHAR: - [ [ @neg-first-digit ] require-next-digit ?neg ] }
{ CHAR: + [ [ @pos-first-digit ] require-next-digit ] } { CHAR: + [ [ @pos-first-digit ] require-next-digit ] }
[ @pos-first-digit ] [ @pos-first-digit ]
} case ; inline } case ; inline
: @first-char-no-radix ( i number-parse n char -- n/f ) : @first-char-no-radix ( i number-parse n char -- n/f )
{ {
{ CHAR: - [ [ @neg-digit ] require-next-digit ?neg ] } { CHAR: - [ [ @neg-digit ] require-next-digit ?neg ] }
{ CHAR: + [ [ @pos-digit ] require-next-digit ] } { CHAR: + [ [ @pos-digit ] require-next-digit ] }

2
core/slots/slots.factor
View File

@ -30,7 +30,7 @@ PREDICATE: writer-method < method "writing" word-prop >boolean ;
GENERIC# reader-quot 1 ( class slot-spec -- quot ) GENERIC# reader-quot 1 ( class slot-spec -- quot )
M: object reader-quot M: object reader-quot
nip [ nip [
dup offset>> , dup offset>> ,
\ slot , \ slot ,