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

[factor.git] / basis / suffix-arrays / words / words.factor

diff --git a/basis/suffix-arrays/words/words.factor b/basis/suffix-arrays/words/words.factor
index 74e2fc2f97e3bc131b598254ff863b1eb5cd7d3d..5089986d5da8e333951a336c27c4a958598dde85 100644 (file)
--- a/basis/suffix-arrays/words/words.factor
+++ b/basis/suffix-arrays/words/words.factor
@@ -1,19 +1,19 @@
-! Copyright (C) 2008 Marc Fauconneau.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: kernel arrays math accessors sequences math.vectors\r
-math.order sorting binary-search sets assocs fry suffix-arrays ;\r
-IN: suffix-arrays.words\r
-\r
-! to search on word names\r
-\r
-: new-word-sa ( words -- sa )\r
-    [ name>> ] map >suffix-array ;\r
-\r
-: name>word-map ( words -- map )\r
-    dup [ name>> V{ } clone ] H{ } map>assoc\r
-    [ '[ dup name>> _ at push ] each ] keep ;\r
-\r
-: query-word-sa ( map begin sa -- matches ) query '[ _ at ] map concat ;\r
-\r
-! usage example :\r
-! clear all-words 100 head dup name>word-map "test" rot new-word-sa query .\r
+! Copyright (C) 2008 Marc Fauconneau.
+! See http://factorcode.org/license.txt for BSD license.
+USING: kernel arrays math accessors sequences math.vectors
+math.order sorting binary-search sets assocs fry suffix-arrays ;
+IN: suffix-arrays.words
+
+! to search on word names
+
+: new-word-sa ( words -- sa )
+    [ name>> ] map >suffix-array ;
+
+: name>word-map ( words -- map )
+    dup [ name>> V{ } clone ] H{ } map>assoc
+    [ '[ dup name>> _ at push ] each ] keep ;
+
+: query-word-sa ( map begin sa -- matches ) query '[ _ at ] map concat ;
+
+! usage example :
+! clear all-words 100 head dup name>word-map "test" rot new-word-sa query .