[Wisp-cvs] wisp/src/builtin sys.wisp,1.106,1.107

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

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv31654/src/builtin

Modified Files:
	sys.wisp 
Log Message:
Dropped |sys:raw:lseek|.

Index: sys.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/sys.wisp,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -d -r1.106 -r1.107
--- sys.wisp	4 Sep 2002 14:28:37 -0000	1.106
+++ sys.wisp	4 Sep 2002 14:35:28 -0000	1.107
@@ -39,6 +39,7 @@
                (kill pid sig)
                (link oldname newname)
                (listen s backlog)
+               (lseek fd ofs whence)
                (mkdir name mode)
                (pipe)
                (rename oldname newname)
@@ -68,12 +69,6 @@
             (my s (valloc (asm () (tn . 3)))
               (asm ((decui (- res 1)) s . buffer) pt (s . 2) p (s . 1) (tn . 9) s0)
               s)))))))
-
-(local (sys:lseek fd ofs whence)
-  (my res (encsi ((asm NN_sys_raw_lseek) (decui fd) (decsi ofs) (decui whence)))
-    (if (negative? res)
-      (signal-system-error res `(sys:lseek ,fd ,ofs ,whence))
-      res)))
 
 (local (%wsv->0tv wsv)
   (my i (vector-length wsv)