From a076248389c82276e079756bee26c011b03f70f2 Mon Sep 17 00:00:00 2001 From: Byron Rakitzis Date: Mon, 7 Mar 1994 00:00:01 +0000 Subject: beta: rc-1.5betadev1 --- var.c | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'var.c') diff --git a/var.c b/var.c index ef780b3..6a3e7c8 100644 --- a/var.c +++ b/var.c @@ -104,7 +104,7 @@ extern char *varlookup_string(char *name) { return look->extdef; if (look->def == NULL) return NULL; - return look->extdef = list2str(name, look->def); + return look->extdef = mprint("%F=%-L", name, look->def, "\001"); } /* remove a variable from the symtab. "stack" determines whether a level of scoping is popped or not */ @@ -166,16 +166,15 @@ static void listassign(char *name, List *def, bool stack) { return; } v = def->w; - r = val = enew(List); + r = val = nnew(List); while ((w = strchr(v, ':')) != NULL) { *w = '\0'; - r->w = ecpy(v); + r->w = ncpy(v); *w = ':'; v = w + 1; - r->n = enew(List); - r = r->n; + r = r->n = nnew(List); } - r->w = ecpy(v); + r->w = ncpy(v); r->n = NULL; varassign(name, val, stack); } -- cgit v1.2.3