shithub: femtolisp

Info  •  Files  •  Log  •  Branches

print_iostream: fix wrong filename

--- a/iostream.c

+++ b/iostream.c

@@ -8,11 +8,11 @@

 static void

 print_iostream(value_t v, ios_t *f)

 {

-	USED(v);

+	ios_t *s = value2c(ios_t*, v);

 	fl_print_str(f, "#<io stream");

-	if(*f->loc.filename){

+	if(*s->loc.filename){

 		fl_print_chr(f, ' ');

-		fl_print_str(f, f->loc.filename);

+		fl_print_str(f, s->loc.filename);

 	}

 	fl_print_chr(f, '>');

 }