From 0be2e172467a637adbccc63a6e548a3c893e767f Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 29 Aug 2009 19:55:27 -0500
Subject: [PATCH] put a method on M\ tuple string>alien that calls underlying>>

---
 core/alien/strings/strings.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index ff20b8b033..e96b13478e 100644
--- 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 ;