[Wisp-cvs] wisp/src node.h,1.230,1.231 wisp.c.nepl,1.55,1.56 wordlist.txt,1.574,1.575

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

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

Modified Files:
	node.h wisp.c.nepl wordlist.txt 
Log Message:
Dropped mk_syserr().

Index: node.h
===================================================================
RCS file: /cvsroot/wisp/wisp/src/node.h,v
retrieving revision 1.230
retrieving revision 1.231
diff -u -d -r1.230 -r1.231
--- node.h	7 Sep 2002 22:03:16 -0000	1.230
+++ node.h	18 Sep 2002 21:02:13 -0000	1.231
@@ -212,9 +212,6 @@
 #define reqevmfunc(x) genreq (evmfuncp, WO_evmfunc_huh, (x))
 #define reqinstance(x) genreq (instancep, WO_instance_huh, (x))
 
-/* in wisp.c */
-extern struct node *mk_syserr (struct node *);
-
 // tyb refers to type bits, the two least significant bits of a pointer.
 #define tybp(x,v) ((((int) (x)) & 3) == (v))
 #define tyb0p(x) tybp((x), 0)

Index: wisp.c.nepl
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wisp.c.nepl,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -d -r1.55 -r1.56
--- wisp.c.nepl	4 Sep 2002 14:31:41 -0000	1.55
+++ wisp.c.nepl	18 Sep 2002 21:02:13 -0000	1.56
@@ -46,12 +46,6 @@
 
 struct node *root_node;
 
-struct node *
-mk_syserr (struct node *item)
-{
-    dosig (WO_system_error, mk_cons (encui (errno), item));
-}
-
 extern struct node *builtin_root;
 
 jmp_buf root_signal_handler;

Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.574
retrieving revision 1.575
diff -u -d -r1.574 -r1.575
--- wordlist.txt	18 Sep 2002 21:01:02 -0000	1.574
+++ wordlist.txt	18 Sep 2002 21:02:13 -0000	1.575
@@ -168,9 +168,9 @@
 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 syscalls sysnr
-system-constant system-constant-internal system-constants system-error
-system-path system-type t t* tab takervec target tc tcchangeattr
-tcgetattr tcgetattr-raw tcsetattr-raw tenth termios th third time tn
+system-constant system-constant-internal system-constants system-path
+system-type t t* tab takervec target tc tcchangeattr tcgetattr
+tcgetattr-raw tcsetattr-raw tenth termios th third time tn
 too-long-character topocopy toposplit translate tree-copy true truncate
 truncate-not try tty? type type-of ubyte? uid undefined unix-time
 unknown unknown-context unknown-local unknown-open-input-file-flag