core, basis, extra: Remove DOS line endings from files.

[factor.git] / extra / morse / morse.factor

diff --git a/extra/morse/morse.factor b/extra/morse/morse.factor
index 6803dfa67b8887b0d7b6b464763e5e428abebb69..86c599137be8de739fdf1745fbabf664c7fc5f3e 100755 (executable)
--- a/extra/morse/morse.factor
+++ b/extra/morse/morse.factor
@@ -83,15 +83,15 @@ CONSTANT: morse-code-table $[
 
 : morse>ch ( str -- ch )
     morse-code-table value-at char-gap-char or ;
-    
+
 <PRIVATE
-    
+
 : word>morse ( str -- morse )
     [ ch>morse ] { } map-as " " join ;
 
 : sentence>morse ( str -- morse )
     " " split [ word>morse ] map " / " join ;
-    
+
 : trim-blanks ( str -- newstr )
     [ blank? ] trim ; inline
 
@@ -105,17 +105,17 @@ CONSTANT: morse-code-table $[
     [ dup CHAR: _ = [ drop CHAR: - ] when ] map ;
 
 PRIVATE>
-    
+
 : >morse ( str -- newstr )
     trim-blanks sentence>morse ;
-    
+
 : morse> ( morse -- plain )
     replace-underscores morse>sentence ;
 
-SYNTAX: [MORSE "MORSE]" parse-multiline-string morse> suffix! ; 
-    
+SYNTAX: [MORSE "MORSE]" parse-multiline-string morse> suffix! ;
+
 <PRIVATE
-    
+
 SYMBOLS: source dot-buffer dash-buffer intra-char-gap-buffer letter-gap-buffer ;
 
 : queue ( symbol -- )