core: Add the shuffler words but without primitives.

[factor.git] / extra / midi / midi.factor

diff --git a/extra/midi/midi.factor b/extra/midi/midi.factor
index 3f8ccf4e5a4f3c1545234e714ce6371606866933..4a199111eed094051c2f15a5ca35d0b16cfc4cf9 100644 (file)
--- a/extra/midi/midi.factor
+++ b/extra/midi/midi.factor
@@ -210,7 +210,7 @@ CONSTANT: smpte-framerate H{
     binary <byte-reader> <peek-stream> [
         f [
             peek1 [ read-event-header ] [ f f ] if dup
-        ] [ read-event ] produce 2nip nip
+        ] [ read-event ] produce 3nip
     ] with-input-stream ;
 
 : <midi-header> ( bytes -- header )