57 static void print_list(FILE * f, struct string_list *list);
408 static struct string_list *read_node(FILE *f)  in read_node()  argument
416 	while ((c = fgetc(f)) != EOF) {  in read_node()
426 			ungetc(c, f);  in read_node()
456 static void read_reference(FILE *f)  in read_reference()  argument
458 	while (!feof(f)) {  in read_reference()
464 		sym = read_node(f);  in read_reference()
469 			sym = read_node(f);  in read_reference()
473 		def = read_node(f);  in read_reference()
478 			def = read_node(f);  in read_reference()
483 			def = read_node(f);  in read_reference()
492 static void print_node(FILE * f, struct string_list *list)  in print_node()  argument
495 		putc(symbol_types[list->tag].n, f);  in print_node()
496 		putc('#', f);  in print_node()
498 	fputs(list->string, f);  in print_node()
501 static void print_list(FILE * f, struct string_list *list)  in print_list()  argument
508 		fputs("(nil)", f);  in print_list()
525 		print_node(f, *b++);  in print_list()
526 		putc(' ', f);  in print_list()