byte-vectors: dos2unix

core/byte-vectors/byte-vectors.factor

@@ -1,48 +1,48 @@
-! Copyright (C) 2008 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: accessors byte-arrays growable kernel math sequences
-sequences.private ;
-IN: byte-vectors
-
-TUPLE: byte-vector
-{ underlying byte-array }
-{ length array-capacity } ;
-
-: <byte-vector> ( n -- byte-vector )
-    (byte-array) 0 byte-vector boa ; inline
-
-: >byte-vector ( seq -- byte-vector )
-    >byte-array dup length byte-vector boa ;
-
-M: byte-vector like
-    drop dup byte-vector? [
-        dup byte-array?
-        [ dup length byte-vector boa ] [ >byte-vector ] if
-    ] unless ; inline
-
-M: byte-vector new-sequence
-    drop [ (byte-array) ] [ >fixnum ] bi byte-vector boa ; inline
-
-M: byte-vector equal?
-    over byte-vector? [ sequence= ] [ 2drop f ] if ;
-
-M: byte-vector contract 2drop ; inline
-
-M: byte-array like
-    #! If we have an byte-array, we're done.
-    #! If we have a byte-vector, and it's at full capacity,
-    #! we're done. Otherwise, call resize-byte-array, which is a
-    #! relatively fast primitive.
-    drop dup byte-array? [
-        dup byte-vector? [
-            [ length ] [ underlying>> ] bi
-            2dup length eq?
-            [ nip ] [ resize-byte-array ] if
-        ] [ >byte-array ] if
-    ] unless ; inline
-
-M: byte-array new-resizable drop <byte-vector> ; inline
-
-M: byte-vector new-resizable drop <byte-vector> ; inline
-
-INSTANCE: byte-vector growable
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors byte-arrays growable kernel math sequences
+sequences.private ;
+IN: byte-vectors
+
+TUPLE: byte-vector
+{ underlying byte-array }
+{ length array-capacity } ;
+
+: <byte-vector> ( n -- byte-vector )
+    (byte-array) 0 byte-vector boa ; inline
+
+: >byte-vector ( seq -- byte-vector )
+    >byte-array dup length byte-vector boa ;
+
+M: byte-vector like
+    drop dup byte-vector? [
+        dup byte-array?
+        [ dup length byte-vector boa ] [ >byte-vector ] if
+    ] unless ; inline
+
+M: byte-vector new-sequence
+    drop [ (byte-array) ] [ >fixnum ] bi byte-vector boa ; inline
+
+M: byte-vector equal?
+    over byte-vector? [ sequence= ] [ 2drop f ] if ;
+
+M: byte-vector contract 2drop ; inline
+
+M: byte-array like
+    #! If we have an byte-array, we're done.
+    #! If we have a byte-vector, and it's at full capacity,
+    #! we're done. Otherwise, call resize-byte-array, which is a
+    #! relatively fast primitive.
+    drop dup byte-array? [
+        dup byte-vector? [
+            [ length ] [ underlying>> ] bi
+            2dup length eq?
+            [ nip ] [ resize-byte-array ] if
+        ] [ >byte-array ] if
+    ] unless ; inline
+
+M: byte-array new-resizable drop <byte-vector> ; inline
+
+M: byte-vector new-resizable drop <byte-vector> ; inline
+
+INSTANCE: byte-vector growable