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 <>)))))
|
