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) &&
|