From 7f2df38b79c506ce90eeb87f75c6263cbc2d2b41 Mon Sep 17 00:00:00 2001
From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Tue, 2 Mar 2010 08:14:22 -0800
Subject: [PATCH] Add PP-EXPRESSION debugging utility.

---
 src/sf/cgen.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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
-- 
2.25.1