From 4e97e9a8fb498cbd45ba64d87588c10e69aad63f Mon Sep 17 00:00:00 2001 From: John Benediktsson 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* + ; + : with-extra-nesting-level ( quot -- ) nesting-limit [ dup [ 1 + ] [ f ] if* ] change [ nesting-limit set ] curry finally ; inline