[Wisp-cvs] wisp/src/builtin modular.wisp,1.68,1.69 sys.wisp,1.121,1.122

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/builtin
In directory sc8-pr-cvs1:/tmp/cvs-serv3068/builtin

Modified Files:
	modular.wisp sys.wisp 
Log Message:
implemented sys:socket

Index: modular.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/modular.wisp,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -d -r1.68 -r1.69
--- modular.wisp	18 Sep 2002 21:08:01 -0000	1.68
+++ modular.wisp	6 Feb 2003 12:29:10 -0000	1.69
@@ -60,9 +60,9 @@
               sys:getppid sys:getuid sys:kill sys:link sys:listen
               sys:lseek sys:lstat sys:mkdir sys:nanosleep sys:ns:execve
               sys:open sys:pipe sys:read sys:rename sys:select
-              sys:setpgid sys:setpgrp sys:setsid sys:stat sys:symlink
-              sys:sync sys:tcgetattr sys:tcsetattr sys:truncate
-              sys:unlink sys:waitpid sys:write))))))
+              sys:setpgid sys:setpgrp sys:setsid sys:socket sys:stat
+              sys:symlink sys:sync sys:tcgetattr sys:tcsetattr
+              sys:truncate sys:unlink sys:waitpid sys:write))))))
 
   (define modules ; a box containing an alist
     (make-box builtin-module-data))

Index: sys.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/sys.wisp,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -d -r1.121 -r1.122
--- sys.wisp	5 Feb 2003 01:28:10 -0000	1.121
+++ sys.wisp	6 Feb 2003 12:29:10 -0000	1.122
@@ -51,6 +51,7 @@
                (select n readfds writefds exceptfds sec usec)
                (setpgid pid pgid)
                (setsid)
+               (socket domain type protocol)
                (stat filename)
                (symlink oldname newname)
                (truncate filename len)