audio.aiff: one liner.

diff --git a/extra/audio/aiff/aiff.factor b/extra/audio/aiff/aiff.factor
index 072d700965bf7dde546624d0a28c99785882d136..3fd5dbdacf845bc64f2aee3f9df9f0d985e8b144 100644 (file)
--- a/extra/audio/aiff/aiff.factor
+++ b/extra/audio/aiff/aiff.factor
@@ -35,8 +35,7 @@ STRUCT: sound-data-chunk
 
 ! cheesy long-double>integer converter that assumes the long double is a positive integer
 : sample-rate>integer ( byte[10] -- sample-rate )
-    [ 2 tail-slice be> ]
-    [ 2 head-slice be> 16383 - 63 - ] bi shift ;
+    2 cut-slice [ be> ] bi@ swap 16383 - 63 - shift ;
 
 : read-form-chunk ( -- byte-array/f )
     form-chunk heap-size ensured-read* ;