Bugfix: cannot print (lambda . 42) structure.

* lib.c (obj_print, obj_pprint): Fix mistake in the test for
properly formed lambda syntax whcih is printed specially.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index c4c3edae..611aef91 100644
--- a/lib.c
+++ b/lib.c
@@ -6734,7 +6734,7 @@ val obj_print(val obj, val out)
           put_char(chr('('), out);
         }
 
-        if (sym == lambda_s && cdr(obj) && symbolp(second(obj))) {
+        if (sym == lambda_s && consp(cdr(obj)) && symbolp(second(obj))) {
           obj_print(sym, out);
           if (second(obj)) {
             put_string(lit(" (. "), out);
@@ -6928,7 +6928,7 @@ val obj_pprint(val obj, val out)
           put_char(chr('('), out);
         }
 
-        if (sym == lambda_s && cdr(obj) && symbolp(second(obj))) {
+        if (sym == lambda_s && consp(cdr(obj)) && symbolp(second(obj))) {
           obj_print(sym, out);
           if (second(obj)) {
             put_string(lit(" (. "), out);