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

2009-08-29 19:55:27 -05:00 · 2009-08-29 19:55:27 -05:00 · 0be2e17246
parent dedc1eb0cb
commit 0be2e17246
1 changed files with 2 additions and 0 deletions
--- 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 ;