From a702ea88c792e54d6a44b89efb09c265f542704a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 22 Oct 2008 03:37:05 +0000
Subject: 	* boot/ast.boot: Expand on native call translation. 	*
 interp/sys-os.boot (oa_filedesc_read): Adjust declaration. 
 (oa_filedesc_write): Likewise.

---
 src/interp/sys-os.boot | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/interp/sys-os.boot')

diff --git a/src/interp/sys-os.boot b/src/interp/sys-os.boot
index 3ab992a8..8478299e 100644
--- a/src/interp/sys-os.boot
+++ b/src/interp/sys-os.boot
@@ -79,11 +79,13 @@ import writeablep: string -> int for writeablep
        --  1: exists and write access granted
        --  2: inexistent but write access to parent directory granted.
 
-import oa__filedesc__read: (int,buffer,int) -> int for readFromFileHandle
+import oa__filedesc__read: (int,writeonly buffer byte,int) -> int 
+  for readFromFileHandle
        -- -1: failure; otherwise
        -- actual read bytes count
 
-import oa__filedesc__write: (int,buffer,int) -> int for writeToFileHandle
+import oa__filedesc__write: (int,readonly buffer byte,int) -> int 
+  for writeToFileHandle
        -- -1: failure; otherwise
        -- actual written bytes count
 
-- 
cgit v1.2.3