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