From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Tue, 2 Mar 2010 16:14:22 +0000 (-0800)
Subject: Add PP-EXPRESSION debugging utility.
X-Git-Tag: 20100708-Gtk~143
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7f2df38b79c506ce90eeb87f75c6263cbc2d2b41;p=mit-scheme.git

Add PP-EXPRESSION debugging utility.
---

diff --git a/src/sf/cgen.scm b/src/sf/cgen.scm
index 7cb7fb8a5..29ed4a68d 100644
--- a/src/sf/cgen.scm
+++ b/src/sf/cgen.scm
@@ -240,4 +240,11 @@ USA.
 (define-method/cgen 'THE-ENVIRONMENT
   (lambda (interns expression)
     interns expression ; ignored
-    (make-the-environment)))
\ No newline at end of file
+    (make-the-environment)))
+
+;;; Debugging utility
+(define (pp-expression form)
+  (fluid-let ((*pp-primitives-by-name* #f)
+	      (*pp-uninterned-symbols-by-name* #f)
+	      (*unparse-abbreviate-quotations?* #t))
+    (pp (cgen/external-with-declarations form))))
\ No newline at end of file