From 586cf9547f87b5893c11137ddf5c863e4c2a70f8 Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Tue, 14 Jul 2009 22:33:23 +1200
Subject: [PATCH] alien.marshall: fixed char* unmarshalling bug

---
 basis/alien/marshall/marshall.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/alien/marshall/marshall.factor b/basis/alien/marshall/marshall.factor
index 3fbfb32047..e15cfee746 100644
--- a/basis/alien/marshall/marshall.factor
+++ b/basis/alien/marshall/marshall.factor
@@ -183,7 +183,7 @@ ALIAS: marshall-void* marshall-pointer
         { "float"      [ [ ] ] }
         { "double"     [ [ ] ] }
         { "bool*"      [ [ unmarshall-bool*-free ] ] }
-        { "char*"      [ [ unmarshall-char*-to-string-free ] ] }
+        { "char*"      [ [ ] ] }
         { "uchar*"     [ [ unmarshall-uchar*-free ] ] }
         { "short*"     [ [ unmarshall-short*-free ] ] }
         { "ushort*"    [ [ unmarshall-ushort*-free ] ] }
@@ -196,7 +196,7 @@ ALIAS: marshall-void* marshall-pointer
         { "float*"     [ [ unmarshall-float*-free ] ] }
         { "double*"    [ [ unmarshall-double*-free ] ] }
         { "bool&"      [ [ unmarshall-bool*-free ] ] }
-        { "char&"      [ [ unmarshall-char*-free ] ] }
+        { "char&"      [ [ ] ] }
         { "uchar&"     [ [ unmarshall-uchar*-free ] ] }
         { "short&"     [ [ unmarshall-short*-free ] ] }
         { "ushort&"    [ [ unmarshall-ushort*-free ] ] }
@@ -227,7 +227,7 @@ ALIAS: marshall-void* marshall-pointer
         { "float"      [ [ ] ] }
         { "double"     [ [ ] ] }
         { "bool*"      [ [ unmarshall-bool* ] ] }
-        { "char*"      [ [ unmarshall-char*-to-string ] ] }
+        { "char*"      [ [ ] ] }
         { "uchar*"     [ [ unmarshall-uchar* ] ] }
         { "short*"     [ [ unmarshall-short* ] ] }
         { "ushort*"    [ [ unmarshall-ushort* ] ] }