From 92bddad476943e01f18019eba0e2377cb8865e4b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 2 Mar 2017 16:09:46 -0800
Subject: [PATCH] linked-assocs.prettyprint: only print LH{ } for linked-assoc
 classes.

Not subclasses.
---
 basis/linked-assocs/prettyprint/prettyprint.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/basis/linked-assocs/prettyprint/prettyprint.factor b/basis/linked-assocs/prettyprint/prettyprint.factor
index 25d87e2b7c..7fc4cb83ca 100644
--- a/basis/linked-assocs/prettyprint/prettyprint.factor
+++ b/basis/linked-assocs/prettyprint/prettyprint.factor
@@ -1,8 +1,9 @@
-USING: accessors assocs hashtables kernel linked-assocs
+USING: accessors assocs classes hashtables kernel linked-assocs
 prettyprint.backend prettyprint.custom ;
 IN: linked-assocs.prettyprint
 
-PREDICATE: linked-hash < linked-assoc assoc>> hashtable? ;
+PREDICATE: linked-hash < linked-assoc
+    [ class-of linked-assoc = ] [ assoc>> hashtable? ] bi and ;
 
 M: linked-hash pprint-delims drop \ LH{ \ } ;