From 75b3bc655a4b182cf846233aca571d9b62ed7f72 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 26 Aug 2009 09:13:30 -0500
Subject: [PATCH] allow alien.strings:alien>string to take an object with
 underlying>> slot

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

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