From 3d4576ed847bfd84b3befaf7c5ae7ee62905ab2a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 24 Oct 2008 06:40:59 +0000
Subject: 	Add basic support for stream client socket. 	*
 lib/sockio-c.c (oa_inet_pton): Define. 	(oa_get_host_address):
 Likewise. 	* algebra/net.spad.pamphlet (IP4Address): New. 
 (NetworkClientSocket): Likewise. 	(InetClientStreamSocket): Likewise. 
 * algebra/data.spad.pamphlet (DataArray): Rename from DataBuffer. 
 (ByteBuffer): Rename from ByteArray.  Reimplement. 	*
 algebra/exposed.lsp.pamphlet: Expose IP4Address, 
 InetClientStreamSocket, NetworkClientSocket.

---
 src/boot/ast.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/boot')

diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index a8018467..d461bcd3 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -1393,7 +1393,7 @@ genGCLnativeTranslation(op,s,t,op') ==
       '"object" 
     gclArgInC(x,a) ==
       x in $NativeSimpleDataTypes => a
-      x = "string" => strconc(a,'"->st.st__self")
+      x = "string" => a   -- GCL takes responsability for the conversion
       [.,[.,y]] := x
       y = "char" => strconc(a,'"->st.st__self")
       y = "byte" => strconc(a,'"->ust.ust__self")
-- 
cgit v1.2.3