core: Remove trailing whitespace.

core/classes/algebra/algebra.factor

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

core/hashtables/hashtables.factor

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

core/io/encodings/utf16/utf16.factor

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

core/io/encodings/utf8/utf8.factor

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

core/math/parser/parser.factor

@@ -263,14 +263,14 @@ DEFER: @neg-digit
         [ @neg-digit ]
     } 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: + [ [ @pos-first-digit ] require-next-digit ] }
         [ @pos-first-digit ]
     } 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: + [ [ @pos-digit ] require-next-digit ] }

core/slots/slots.factor

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