From 334e6f1ba23a38d4e0c8dbf3b9e2f19222f4c96f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 5 Feb 2017 21:38:02 -0800
Subject: [PATCH] Change pp to treat all define-FOO symbols like define.

---
 src/runtime/pp.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/runtime/pp.scm b/src/runtime/pp.scm
index a442d9966..592f3ab83 100644
--- a/src/runtime/pp.scm
+++ b/src/runtime/pp.scm
@@ -410,7 +410,13 @@ USA.
       (let* ((subnodes (node-subnodes node))
 	     (association
 	      (and (not (null? (cdr subnodes)))
-		   (assq (unhighlight (car subnodes)) (dispatch-list)))))
+		   (let ((first (unhighlight (car subnodes))))
+		     (and (symbol? first)
+			  (assq (if (ustring-prefix? "define-"
+						     (symbol->string first))
+				    'define
+				    first)
+				(dispatch-list)))))))
 	(if (and (not association)
 		 (fits-within? node column depth))
 	    (print-guaranteed-list-node node)
-- 
2.25.1