[Wisp-cvs] wisp/src prim.c,1.404,1.405

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

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

Modified Files:
	prim.c 
Log Message:
Converted |rvec-set!| from C to Worth.

Index: prim.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/prim.c,v
retrieving revision 1.404
retrieving revision 1.405
diff -u -d -r1.404 -r1.405
--- prim.c	18 Sep 2002 21:01:02 -0000	1.404
+++ prim.c	18 Sep 2002 21:02:25 -0000	1.405
@@ -244,15 +244,6 @@
     return canonum (mk_integer (res));
 }
 
-void rvec_set (struct node *nind, struct node *x)
-{
-    unsigned long int index;
-    index = decui (nind);
-    if (index >= RVEC_LEN)
-        dosig (WO_range, nind);
-    rvec [index] = x;
-}
-
 struct node *binary_eqvp (struct node *a, struct node *b)
 {
     return (a == b) || (nspp (a) && nspp (b) &&