Implement and document stream-peek

[factor.git] / basis / alien / data / data.factor

diff --git a/basis/alien/data/data.factor b/basis/alien/data/data.factor
index ab34bf5a4e7f645775db13874210032b6176e957..f971d0ca7dc68418f65f3601326c22fbfb26ab0a 100644 (file)
--- a/basis/alien/data/data.factor
+++ b/basis/alien/data/data.factor
@@ -62,11 +62,13 @@ M: pointer <c-direct-array>
 : malloc-string ( string encoding -- alien )
     string>alien malloc-byte-array ;
 
+M: memory-stream stream-peek
+    [ index>> ] [ alien>> ] bi <displaced-alien>
+    swap memory>byte-array ;
+
 M: memory-stream stream-read
-    [
-        [ index>> ] [ alien>> ] bi <displaced-alien>
-        swap memory>byte-array
-    ] [ [ + ] change-index drop ] 2bi ;
+    [ stream-peek ]
+    [ [ + ] change-index drop ] 2bi ;
 
 M: value-type c-type-rep drop int-rep ;