Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv32556/tools
Modified Files:
pretty.wisp
Log Message:
Replaced |*stdin*|, |*stdout*|, and |*stderr*| with |current-input-port|, |current-output-port|, and |current-errors-port|.
Index: pretty.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/pretty.wisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- pretty.wisp 7 Sep 2002 21:56:05 -0000 1.7
+++ pretty.wisp 18 Sep 2002 21:11:14 -0000 1.8
@@ -205,7 +205,7 @@
(set! (cdr string-quotes) #\U+BB)))
(let (((process-all output-port)
(if (null? input)
- (process-file *stdin* output-port)
+ (process-file (current-input-port) output-port)
(begin
(call-with-input-file (car input)
(cut process-file <> output-port (basename (car input))))
@@ -219,7 +219,7 @@
(if output
(call-with-output-file output
process-all)
- (process-all *stdin*))
+ (process-all (current-input-port)))
(call-with-pipe-to `("/usr/bin/a2ps" "-Epretty.ssh"
"--stdin= "
,@(if output
|
