[pure-lang-svn] SF.net SVN: pure-lang:[848] pure/trunk/lib/system.pure

[<ag...@us...>]

Revision: 848
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=848&view=rev
Author:   agraef
Date:     2008-09-24 07:57:03 +0000 (Wed, 24 Sep 2008)

Log Message:
-----------
Bugfixes.

Modified Paths:
--------------
    pure/trunk/lib/system.pure

Modified: pure/trunk/lib/system.pure
===================================================================
--- pure/trunk/lib/system.pure	2008-09-24 01:11:44 UTC (rev 847)
+++ pure/trunk/lib/system.pure	2008-09-24 07:57:03 UTC (rev 848)
@@ -259,6 +259,8 @@
     res = pure_fprintf fp s;
     count = if res>=0 then count+res else throw (printf_error res);
   end;
+  do_fprintf fp (count,[]) (printf_format_spec t s) =
+    throw (printf_value_error s ());
   do_fprintf fp (count,_) _ = throw (this_cant_happen count);
 end;
 
@@ -328,6 +330,8 @@
     u = if res>=0 then u + cstring buf
         else free buf $$ throw (printf_error res);
   end;
+  do_sprintf (u,[]) (printf_format_spec t s) =
+    throw (printf_value_error s ());
   do_sprintf (u,_) _ = throw (this_cant_happen u);
   check_buf buf = throw malloc_error if null buf;
                 = buf otherwise;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.