put a method on M\ tuple string>alien that calls underlying>>
parent
dedc1eb0cb
commit
0be2e17246
|
@ -35,6 +35,8 @@ M: string string>alien
|
||||||
[ stream>> >byte-array ]
|
[ stream>> >byte-array ]
|
||||||
tri ;
|
tri ;
|
||||||
|
|
||||||
|
M: tuple string>alien drop underlying>> ;
|
||||||
|
|
||||||
HOOK: alien>native-string os ( alien -- string )
|
HOOK: alien>native-string os ( alien -- string )
|
||||||
|
|
||||||
M: windows alien>native-string utf16n alien>string ;
|
M: windows alien>native-string utf16n alien>string ;
|
||||||
|
|
Loading…
Reference in New Issue