[Wisp-cvs] wisp/src node.c,1.65,1.66 node.h,1.229,1.230

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

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

Modified Files:
	node.c node.h 
Log Message:
Dropped mk_string8().

Index: node.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/node.c,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -d -r1.65 -r1.66
--- node.c	22 Jul 2002 14:53:11 -0000	1.65
+++ node.c	7 Sep 2002 22:03:16 -0000	1.66
@@ -38,14 +38,6 @@
     return mk_stral8 (s, strlen (s));
 }
 
-struct node *mk_string8 (const char *s, size_t len)
-{
-    char *nv = qmalatom (len);
-
-    memmove (nv, s, len);
-    return mk_stral8 (nv, len);
-}
-
 struct node *mk_cons (struct node *car, struct node *cdr)
 {
     struct cons *x = qmalloc (sizeof (struct cons));

Index: node.h
===================================================================
RCS file: /cvsroot/wisp/wisp/src/node.h,v
retrieving revision 1.229
retrieving revision 1.230
diff -u -d -r1.229 -r1.230
--- node.h	4 Sep 2002 14:31:41 -0000	1.229
+++ node.h	7 Sep 2002 22:03:16 -0000	1.230
@@ -129,7 +129,6 @@
 
 extern struct node *mk_integer (mpz_t *);
 extern struct node *mk_rat (mpq_t *);
-extern struct node *mk_string8 (const char *s, size_t len);
 extern struct node *mk_cons (struct node *car, struct node *cdr);
 extern struct node *mk_dict (struct dict *dict);
 extern struct node *mk_file (int fd);