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

[factor.git] / basis / models / range / range.factor

diff --git a/basis/models/range/range.factor b/basis/models/range/range.factor
index 9a4584a9a290bad9df5c5d0ddc4f25f776485d0c..4039124c40fedeea2f9978ab072c684a3ff22891 100644 (file)
--- a/basis/models/range/range.factor
+++ b/basis/models/range/range.factor
@@ -1,48 +1,48 @@
-! Copyright (C) 2008 Slava Pestov.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: accessors kernel models arrays sequences math math.order\r
-models.product generalizations sequences.generalizations\r
-math.functions ;\r
-FROM: models.product => product ;\r
-IN: models.range\r
-\r
-TUPLE: range < product ;\r
-\r
-: <range> ( value page min max step -- range )\r
-    5 narray [ <model> ] map range new-product ;\r
-\r
-: range-model ( range -- model ) dependencies>> first ;\r
-: range-page ( range -- model ) dependencies>> second ;\r
-: range-min ( range -- model ) dependencies>> third ;\r
-: range-max ( range -- model ) dependencies>> fourth ;\r
-: range-step ( range -- model ) dependencies>> 4 swap nth ;\r
-\r
-: step-value ( value range -- value' )\r
-    range-step value>> floor-to ;\r
-\r
-M: range range-value\r
-    [ range-model value>> ] [ clamp-value ] [ step-value ] tri ;\r
-\r
-M: range range-page-value range-page value>> ;\r
-\r
-M: range range-min-value range-min value>> ;\r
-\r
-M: range range-max-value range-max value>> ;\r
-\r
-M: range range-max-value*\r
-    [ range-max-value ] [ range-page-value ] bi [-] ;\r
-\r
-M: range set-range-value\r
-    [ clamp-value ] [ range-model ] bi set-model ;\r
-\r
-M: range set-range-page-value range-page set-model ;\r
-\r
-M: range set-range-min-value range-min set-model ;\r
-\r
-M: range set-range-max-value range-max set-model ;\r
-\r
-: move-by ( amount range -- )\r
-    [ range-value + ] keep set-range-value ;\r
-\r
-: move-by-page ( amount range -- )\r
-    [ range-page-value * ] keep move-by ;\r
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors kernel models arrays sequences math math.order
+models.product generalizations sequences.generalizations
+math.functions ;
+FROM: models.product => product ;
+IN: models.range
+
+TUPLE: range < product ;
+
+: <range> ( value page min max step -- range )
+    5 narray [ <model> ] map range new-product ;
+
+: range-model ( range -- model ) dependencies>> first ;
+: range-page ( range -- model ) dependencies>> second ;
+: range-min ( range -- model ) dependencies>> third ;
+: range-max ( range -- model ) dependencies>> fourth ;
+: range-step ( range -- model ) dependencies>> 4 swap nth ;
+
+: step-value ( value range -- value' )
+    range-step value>> floor-to ;
+
+M: range range-value
+    [ range-model value>> ] [ clamp-value ] [ step-value ] tri ;
+
+M: range range-page-value range-page value>> ;
+
+M: range range-min-value range-min value>> ;
+
+M: range range-max-value range-max value>> ;
+
+M: range range-max-value*
+    [ range-max-value ] [ range-page-value ] bi [-] ;
+
+M: range set-range-value
+    [ clamp-value ] [ range-model ] bi set-model ;
+
+M: range set-range-page-value range-page set-model ;
+
+M: range set-range-min-value range-min set-model ;
+
+M: range set-range-max-value range-max set-model ;
+
+: move-by ( amount range -- )
+    [ range-value + ] keep set-range-value ;
+
+: move-by-page ( amount range -- )
+    [ range-page-value * ] keep move-by ;