From 3716c08280d7a6198e1969f94295f9a2e87be92c Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Fri, 17 Jun 2011 08:11:26 -0700 Subject: [PATCH] Add optional port argument to debugging utility procedure. --- src/sf/cgen.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.25.1