factor: trim more whitespace from #! comments

diff --git a/basis/peg/ebnf/ebnf-tests.factor b/basis/peg/ebnf/ebnf-tests.factor
index 61b88c7aa3287628d4d8381bcc8c29564f2ee8c9..7af213837f05a9eae55df355d2b8ed9e1e241b6b 100644 (file)
--- a/basis/peg/ebnf/ebnf-tests.factor
+++ b/basis/peg/ebnf/ebnf-tests.factor
@@ -254,20 +254,20 @@ IN: peg.ebnf.tests
 ] must-fail
 
 { V{ V{ 49 } "+" V{ 49 } } } [
-  #! Test direct left recursion. 
-  #! Using packrat, so first part of expr fails, causing 2nd choice to be used  
+  #! Test direct left recursion.
+  #! Using packrat, so first part of expr fails, causing 2nd choice to be used
   "1+1" [EBNF num=([0-9])+ expr=expr "+" num | num EBNF]
 ] unit-test
 
 { V{ V{ V{ 49 } "+" V{ 49 } } "+" V{ 49 } } } [
-  #! Test direct left recursion. 
-  #! Using packrat, so first part of expr fails, causing 2nd choice to be used  
+  #! Test direct left recursion.
+  #! Using packrat, so first part of expr fails, causing 2nd choice to be used
   "1+1+1" [EBNF num=([0-9])+ expr=expr "+" num | num EBNF]
 ] unit-test
 
 { V{ V{ V{ 49 } "+" V{ 49 } } "+" V{ 49 } } } [
-  #! Test indirect left recursion. 
-  #! Using packrat, so first part of expr fails, causing 2nd choice to be used  
+  #! Test indirect left recursion.
+  #! Using packrat, so first part of expr fails, causing 2nd choice to be used
   "1+1+1" [EBNF num=([0-9])+ x=expr expr=x "+" num | num EBNF]
 ] unit-test
 

diff --git a/basis/serialize/serialize.factor b/basis/serialize/serialize.factor
index 0bc26cb2a13b29073138b921155aa3d521056c41..2a79beabf29ef77ba0295750f8d3f20bdc1dab4d 100644 (file)
--- a/basis/serialize/serialize.factor
+++ b/basis/serialize/serialize.factor
@@ -26,7 +26,7 @@ SYMBOL: serialized
     serialized get [ assoc-size swap ] keep set-at ;
 
 : object-id ( obj -- id )
-    #! Return the id of an already serialized object 
+    #! Return the id of an already serialized object
     serialized get at ;
 
 ! Numbers are serialized as follows:

diff --git a/extra/peg/javascript/parser/parser.factor b/extra/peg/javascript/parser/parser.factor
index 8e2c35a0067dbd4a6c59ac84f830cc0b8b5a8ac7..6a3804fea8dd03b90cce544e254b8775558de660 100644 (file)
--- a/extra/peg/javascript/parser/parser.factor
+++ b/extra/peg/javascript/parser/parser.factor
@@ -5,16 +5,16 @@ peg peg.ebnf peg.javascript.ast peg.javascript.tokenizer ;
 IN: peg.javascript.parser
 
 #! Grammar for JavaScript. Based on OMeta-JS example from:
-#! http://jarrett.cs.ucla.edu/ometa-js/#JavaScript_Compiler 
+#! http://jarrett.cs.ucla.edu/ometa-js/#JavaScript_Compiler
 
 #! The interesting thing about this parser is the mixing of
 #! a default and non-default tokenizer. The JavaScript tokenizer
 #! removes all newlines. So when operating on tokens there is no
 #! need for newline and space skipping in the grammar. But JavaScript
-#! uses the newline in the 'automatic semicolon insertion' rule. 
+#! uses the newline in the 'automatic semicolon insertion' rule.
 #!
 #! If a statement ends in a newline, sometimes the semicolon can be
-#! skipped. So we define an 'nl' rule using the default tokenizer. 
+#! skipped. So we define an 'nl' rule using the default tokenizer.
 #! This operates a character at a time. Using this 'nl' in the parser
 #! allows us to detect newlines when we need to for the semicolon
 #! insertion rule, but ignore it in all other places.

diff --git a/extra/peg/javascript/tokenizer/tokenizer.factor b/extra/peg/javascript/tokenizer/tokenizer.factor
index cdf2c2faa007ca551ce42c095671f2e9b8fe3959..eed46b4a81bf5c95fdc98c80884d92c7dbd7d43f 100644 (file)
--- a/extra/peg/javascript/tokenizer/tokenizer.factor
+++ b/extra/peg/javascript/tokenizer/tokenizer.factor
@@ -4,7 +4,7 @@ USING: kernel sequences strings arrays math.parser peg peg.ebnf peg.javascript.a
 IN: peg.javascript.tokenizer
 
 #! Grammar for JavaScript. Based on OMeta-JS example from:
-#! http://jarrett.cs.ucla.edu/ometa-js/#JavaScript_Compiler 
+#! http://jarrett.cs.ucla.edu/ometa-js/#JavaScript_Compiler
 
 USE: prettyprint
 

diff --git a/extra/space-invaders/space-invaders.factor b/extra/space-invaders/space-invaders.factor
index 3207bb0ad65a8836602550a9d6c00eee2130f083..58c6bada177ca797dcd569a77958dc6dc71e8a9e 100755 (executable)
--- a/extra/space-invaders/space-invaders.factor
+++ b/extra/space-invaders/space-invaders.factor
@@ -30,7 +30,7 @@ CONSTANT: game-height 256
     color third  index 2 + bitmap set-nth ;
 
 : get-bitmap-pixel ( point array -- color )
-    #! Point is a {x y}. color is a {r g b} 
+    #! Point is a {x y}. color is a {r g b}
     [ bitmap-index ] dip
     [ nth ]
     [ [ 1 + ] dip nth ]
@@ -164,7 +164,7 @@ M: space-invaders read-port
     #! Bit 1 = invaders sound 2
     #! Bit 2 = invaders sound 3
     #! Bit 3 = invaders sound 4
-    #! Bit 4 = spaceship hit 
+    #! Bit 4 = spaceship hit
     #! Bit 5 = amplifier enabled/disabled
     2dup 0 port5-newly-set? [ dup SOUND-WALK1 play-invaders-sound ] when
     2dup 1 port5-newly-set? [ dup SOUND-WALK2 play-invaders-sound ] when
@@ -336,7 +336,7 @@ M: space-invaders update-video
     system:nano-count ;
 
 : invaders-process ( micros gadget -- )
-    #! Run a space invaders gadget inside a 
+    #! Run a space invaders gadget inside a
     #! concurrent process. Messages can be sent to
     #! signal key presses, etc.
     dup quit?>> [