Add the ability to print the empty list to src/lib/display.rls.
This commit is contained in:
parent
704c473015
commit
33ef2ce582
|
|
@ -39,6 +39,7 @@
|
||||||
[(keyword? form) (write-string "#:" port)
|
[(keyword? form) (write-string "#:" port)
|
||||||
(write-string (keyword->string form) port)]
|
(write-string (keyword->string form) port)]
|
||||||
[(fixnum? form) (write-string (number->string form) port)]
|
[(fixnum? form) (write-string (number->string form) port)]
|
||||||
|
[(eq? form '()) (write-string "()" port)]
|
||||||
[(eq? form #f) (write-string "#f" port)]
|
[(eq? form #f) (write-string "#f" port)]
|
||||||
[(eq? form #t) (write-string "#t" port)]
|
[(eq? form #t) (write-string "#t" port)]
|
||||||
[(eq? form undefined) (write-string "#<undefined>" port)]
|
[(eq? form undefined) (write-string "#<undefined>" port)]
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue