diff options
Diffstat (limited to 'ppfile.scm')
| -rw-r--r-- | ppfile.scm | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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)))) |