shithub: femtolisp

Info  •  Files  •  Log  •  Branches

prefer "nil" over "()"

--- a/flisp.c

+++ b/flisp.c

@@ -2290,6 +2290,7 @@

 	FL(Tsym) = symbol("T", false);

 	FL(fsym) = symbol("f", false);

 	FL(Fsym) = symbol("F", false);

+	set(symbol("nil", false), FL_nil);

 	FL(builtins_table_sym) = symbol("*builtins*", false);

 	set(FL(printprettysym) = symbol("*print-pretty*", false), FL_t);

 	set(FL(printreadablysym) = symbol("*print-readably*", false), FL_t);

--- a/print.c

+++ b/print.c

@@ -417,7 +417,7 @@

 		else if(v == FL_f)

 			outsn("#f", f, 2);

 		else if(v == FL_nil)

-			outsn("()", f, 2);

+			outsn("nil", f, 3);

 		else if(v == FL_eof)

 			outsn("#<eof>", f, 6);

 		else if(isbuiltin(v)){