allow alien.strings:alien>string to take an object with underlying>> slot

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index c74c325726a82fa156f49d7a61c04930ed202d90..ff20b8b0333cf6f9024e5c63915aad28a31a03ef 100644 (file)
--- a/core/alien/strings/strings.factor
+++ b/core/alien/strings/strings.factor
@@ -12,6 +12,9 @@ M: c-ptr alien>string
     [ <memory-stream> ] [ <decoder> ] bi*
     "\0" swap stream-read-until drop ;
 
+M: object alien>string
+    [ underlying>> ] dip alien>string ;
+
 M: f alien>string
     drop ;