io.buffers: simplify test word.

2014-11-20 15:46:07 -08:00 · 2014-11-20 15:46:07 -08:00 · e55af0ebfe
parent c60a3e6e80
commit e55af0ebfe
1 changed files with 1 additions and 3 deletions
--- a/basis/io/buffers/buffers-tests.factor
+++ b/basis/io/buffers/buffers-tests.factor
@ -11,9 +11,7 @@ io.buffers kernel libc namespaces sequences strings tools.test ;
    dup length <buffer> [ buffer-set ] keep ;

 : buffer-read-all ( buffer -- byte-array )
-    [ [ pos>> ] [ ptr>> ] bi <displaced-alien> ]
-    [ buffer-length ] bi
-    memory>byte-array ;
+    [ buffer@ ] [ buffer-length ] bi memory>byte-array ;

 [ B{ } 65536 ] [
    65536 <buffer>