From: Joe Marshall <eval.apply@gmail.com>
Date: Fri, 17 Jun 2011 15:11:26 +0000 (-0700)
Subject: Add optional port argument to debugging utility procedure.
X-Git-Tag: release-9.1.0~3^2~10^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3716c08280d7a6198e1969f94295f9a2e87be92c;p=mit-scheme.git

Add optional port argument to debugging utility procedure.
---

diff --git a/src/sf/cgen.scm b/src/sf/cgen.scm
index 4acdf2838..4e72e9c4a 100644
--- a/src/sf/cgen.scm
+++ b/src/sf/cgen.scm
@@ -244,8 +244,8 @@ USA.
     (make-the-environment)))
 
 ;;; Debugging utility
-(define (pp-expression form)
+(define (pp-expression form #!optional port)
   (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
+    (pp (cgen/external-with-declarations form) port)))
\ No newline at end of file