From 8466d8cfa486fb30d1755c4261b781135083787b Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:29 -0800 Subject: Import Upstream version 3a1 --- ppfile.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'ppfile.scm') diff --git a/ppfile.scm b/ppfile.scm index c69390d..342e0fc 100644 --- a/ppfile.scm +++ b/ppfile.scm @@ -8,7 +8,7 @@ ;1. Any copy made of this software must include this copyright notice ;in full. ; -;2. I have made no warrantee or representation that the operation of +;2. I have made no warranty or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; @@ -19,6 +19,7 @@ (require 'pretty-print) +;@ (define (pprint-filter-file inport filter . optarg) ((lambda (fun) (if (input-port? inport) @@ -63,8 +64,8 @@ (lp c)))))))) (lp (peek-char port))) (set! *load-pathname* old-load-pathname))))))) - +;@ (define (pprint-file ifile . optarg) (pprint-filter-file ifile - (lambda (x) x) + identity (if (null? optarg) (current-output-port) (car optarg)))) -- cgit v1.2.3