src/tools/melange parse-conditions.dylan,1.4,1.4.16.1

Update of /var/lib/cvs/src/tools/melange
In directory cantor:/tmp/cvs-serv15701

Modified Files:
      Tag: gd-2-3-newio
        parse-conditions.dylan 
Log Message:
Update for newio condition reporting.


Index: parse-conditions.dylan
===================================================================
RCS file: /var/lib/cvs/src/tools/melange/parse-conditions.dylan,v
retrieving revision 1.4
retrieving revision 1.4.16.1
diff -u -d -r1.4 -r1.4.16.1
--- parse-conditions.dylan      10 Apr 1999 09:57:09 -0000      1.4
+++ parse-conditions.dylan      25 Feb 2004 22:48:54 -0000      1.4.16.1
@@ -142,31 +142,19 @@
 //  when I catch someone using it. There's too many codepaths in the
 //  Dylan libraries which might use it, and I want to find them all.
 
-define method report-condition
+define method print-message
     (parse-condition :: <format-string-parse-condition>,
-     stream,
+     stream :: <stream>,
      #next next-method)
  => ();
-
-  // Temporary debugging code. Warn me when someone pulls this
-  // stupid stunt.
-  if (stream == #"Cheap-IO")
-    format(*standard-error*, "Somebody's using #\"Cheap-IO\"!\n");
-    force-output(*standard-error*);
-  end if;
-
   describe-source-location(parse-condition.parse-condition-source-location,
                           stream);
-  apply(condition-format, stream, parse-condition.condition-format-string,
+  apply(format, stream, parse-condition.condition-format-string,
        parse-condition.condition-format-arguments);
-  unless (stream == #"Cheap-IO")
-    force-output(stream);
-  end unless;
-end method report-condition;
+end method print-message;
 
 define method default-handler(condition :: <parse-progress-report>)
   if (*show-parse-progress?*)
-    report-condition(condition, *warning-output*);
-    condition-format(*warning-output*, "\n");
+    format(*warning-output*, "%s\n", condition);
   end;
 end method default-handler;

_______________________________________________
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
http://www.gwydiondylan.org/mailman/listinfo/gd-chatter