allow alien.strings:alien>string to take an object with underlying>> slot
parent
1403ba9482
commit
75b3bc655a
|
@ -12,6 +12,9 @@ M: c-ptr alien>string
|
||||||
[ <memory-stream> ] [ <decoder> ] bi*
|
[ <memory-stream> ] [ <decoder> ] bi*
|
||||||
"\0" swap stream-read-until drop ;
|
"\0" swap stream-read-until drop ;
|
||||||
|
|
||||||
|
M: object alien>string
|
||||||
|
[ underlying>> ] dip alien>string ;
|
||||||
|
|
||||||
M: f alien>string
|
M: f alien>string
|
||||||
drop ;
|
drop ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue