picolisp

commit e016b6c364e1fe0f46b1662834113a73282a4b5d
parent e909fb2ea80afc28f95fae8eeee4a195ea1dcfcd
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun,  6 Feb 2011 13:17:40 +0100

Error cleanup (minor change)
Diffstat:
M
ersatz/picolisp.jar
 | 
0

M
ersatz/sys.src
 | 
3
+++

2 files changed, 3 insertions(+), 0 deletions(-)
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/ersatz/sys.src b/ersatz/sys.src
@@ -368,6 +368,9 @@ public class PicoLisp {
                }
          }
       }
+      InFile.Chr = 0;
+      Break = false;
+      Line.delete(0, Line.length());
       Env.pushOutFile(new OutFrame(OutFiles[2], 0));
       if (InFile.Name != null)
          StdErr.Wr.print('[' + InFile.Name + ':' + InFile.Src  + "] ");