src/tools/melange interface.dylan,1.32,1.33

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

Modified Files:
        interface.dylan 
Log Message:
Slightly improve error reporting.


Index: interface.dylan
===================================================================
RCS file: /var/lib/cvs/src/tools/melange/interface.dylan,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- interface.dylan     15 Oct 2003 20:01:57 -0000      1.32
+++ interface.dylan     17 Dec 2003 18:07:30 -0000      1.33
@@ -98,6 +98,9 @@
   let input-string = read-to-end(in-stream);
   let sz = input-string.size;
   let module-line-start = match-module(input-string);
+  unless (module-line-start)
+    error("Unable to find a module: keyword");
+  end unless;
   let module-line-end = match-newline(input-string, start: module-line-start);
 
   let module-line 
@@ -106,7 +109,6 @@
     & copy-sequence(input-string, 
                     start: module-line-start + 8, 
                     end: module-line-end + 1);
-
   
   local method try-define (position :: <integer>) => ();
          let new-position = match-define(input-string, start: position);

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