From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 Feb 2017 05:38:02 +0000 (-0800)
Subject: Change pp to treat all define-FOO symbols like define.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~171
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=334e6f1ba23a38d4e0c8dbf3b9e2f19222f4c96f;p=mit-scheme.git

Change pp to treat all define-FOO symbols like define.
---

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)