[Wisp-cvs] wisp/tools pretty.wisp,1.7,1.8

[<di...@us...>]

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