put a method on M\ tuple string>alien that calls underlying>>

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index ff20b8b0333cf6f9024e5c63915aad28a31a03ef..e96b13478e85f20b714b62865799141fdc36bcd3 100644 (file)
--- a/core/alien/strings/strings.factor
+++ b/core/alien/strings/strings.factor
@@ -35,6 +35,8 @@ M: string string>alien
     [ stream>> >byte-array ]
     tri ;
 
+M: tuple string>alien drop underlying>> ;
+
 HOOK: alien>native-string os ( alien -- string )
 
 M: windows alien>native-string utf16n alien>string ;