[Wisp-cvs] wisp/tools frer,1.7,1.8

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

Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv3985/tools

Modified Files:
	frer 
Log Message:
Quieted the frer script.

Index: frer
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/frer,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- frer	22 Jul 2002 14:53:16 -0000	1.7
+++ frer	7 Sep 2002 21:52:40 -0000	1.8
@@ -8,7 +8,7 @@
 ;;
 ;;;; @(#) $Id$
 
-(use files frer getopt phases strings unix)
+(use files frer getopt strings unix)
 
 (my (source-name target-name)
   (getopt '((option (#\o "output") value output)
@@ -22,12 +22,7 @@
                                    (".wisp" . ".frer")
                                    ("" . ".frer")))))
 
-  (my structure (phase "Reading $,[source-name]"
-                  (call-with-input-file source-name
-                    read-all))
-
-    (my frer (phase "Converting to FRER"
-               (structure->frer structure))
-      (phase "Writing $,[target-name]"
-        (call-with-output-file target-name
-          (cut write-string frer <>))))))
+  (my structure (call-with-input-file source-name read-all)
+    (my frer (structure->frer structure)
+      (call-with-output-file target-name
+        (cut write-string frer <>)))))