69 static void print_list(FILE * f, struct string_list *list);
420 static struct string_list *read_node(FILE *f)  in read_node()  argument
428 	while ((c = fgetc(f)) != EOF) {  in read_node()
436 			ungetc(c, f);  in read_node()
466 static void read_reference(FILE *f)  in read_reference()  argument
468 	while (!feof(f)) {  in read_reference()
474 		sym = read_node(f);  in read_reference()
479 			sym = read_node(f);  in read_reference()
483 		def = read_node(f);  in read_reference()
488 			def = read_node(f);  in read_reference()
493 			def = read_node(f);  in read_reference()
502 static void print_node(FILE * f, struct string_list *list)  in print_node()  argument
505 		putc(symbol_types[list->tag].n, f);  in print_node()
506 		putc('#', f);  in print_node()
508 	fputs(list->string, f);  in print_node()
511 static void print_list(FILE * f, struct string_list *list)  in print_list()  argument
518 		fputs("(nil)", f);  in print_list()
535 		print_node(f, *b++);  in print_list()
536 		putc(' ', f);  in print_list()