shithub: femtolisp

Info  •  Files  •  Log  •  Branches

compiler: #<void> is not printable

References: https://todo.sr.ht/~ft/femtolisp/26

--- a/compiler.lsp

+++ b/compiler.lsp

@@ -198,6 +198,7 @@

                         (+ lev 1))))))

 (define (printable? x) (not (or (iostream? x)

+                                (void? x)

                                 (eof-object? x))))

 (define (compile-sym g env s deref)

--- a/flisp.boot

+++ b/flisp.boot

@@ -332,8 +332,7 @@

 	    print-to-string #fn("8000n1205021085524228561:" #(#fn(buffer)

 							      #fn(write)

 							      #fn(iostream->string)) print-to-string)

-	    printable? #fn("6000n120051;I80421051S:" #(#fn(iostream?)

-						       #fn(eof-object?)) printable?)

+	    printable? #fn("6000n120051;IB0471051;I80422051S:" #(#fn(iostream?) void? #fn(eof-object?)) printable?)

 	    procedure? #.function? putprop

 	    #fn(";000n320711O5387360O@F02250237118853488?7^14238708253482:" #(#fn(get) *properties*

 									      #fn(table)