Add optional port argument to debugging utility procedure.

diff --git a/src/sf/cgen.scm b/src/sf/cgen.scm
index 4acdf283871dd039f5ef22ed9e068c1833afbdf8..4e72e9c4a0c7076bfa4c5ad8759c0d2f043b1d37 100644 (file)
--- a/src/sf/cgen.scm
+++ b/src/sf/cgen.scm
@@ -244,8 +244,8 @@ USA.
     (make-the-environment)))
 \f
 ;;; 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