From 4e97e9a8fb498cbd45ba64d87588c10e69aad63f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 29 Feb 2020 07:16:46 -0800
Subject: [PATCH] prettyprint.backend: make +nil+ render as L{ }.

---
 basis/prettyprint/backend/backend.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor
index 28d4d96b8c..ca91cf7f31 100644
--- a/basis/prettyprint/backend/backend.factor
+++ b/basis/prettyprint/backend/backend.factor
@@ -214,6 +214,7 @@ M: byte-array pprint-delims drop \ B{ \ } ;
 M: byte-vector pprint-delims drop \ BV{ \ } ;
 M: vector pprint-delims drop \ V{ \ } ;
 M: cons-state pprint-delims drop \ L{ \ } ;
+M: +nil+ pprint-delims drop \ L{ \ } ;
 M: hashtable pprint-delims drop \ H{ \ } ;
 M: tuple pprint-delims drop \ T{ \ } ;
 M: wrapper pprint-delims drop \ W{ \ } ;
@@ -287,6 +288,9 @@ M: cons-state pprint*
         ] dip pprint-word block>
     ] check-recursion ;
 
+M: +nil+ pprint*
+    <flow pprint-delims [ pprint-word ] bi@ block> ;
+
 : with-extra-nesting-level ( quot -- )
     nesting-limit [ dup [ 1 + ] [ f ] if* ] change
     [ nesting-limit set ] curry finally ; inline