r1645 - cpu/x86/pc/olpc/via

Author: pgf
Date: 2010-01-05 20:12:16 +0100 (Tue, 05 Jan 2010)
New Revision: 1645

Modified:
   cpu/x86/pc/olpc/via/assy.fth
   cpu/x86/pc/olpc/via/runin.fth
Log:
fix stack parity in safe-delete

Modified: cpu/x86/pc/olpc/via/assy.fth
===================================================================
--- cpu/x86/pc/olpc/via/assy.fth	2010-01-05 19:03:26 UTC (rev 1644)
+++ cpu/x86/pc/olpc/via/assy.fth	2010-01-05 19:12:16 UTC (rev 1645)
@@ -167,6 +167,7 @@
     2dup $file-exists?  if
        2dup $delete
     then
+    2drop
 ;

: $copy!  ( $src $dst -- )

Modified: cpu/x86/pc/olpc/via/runin.fth
===================================================================
--- cpu/x86/pc/olpc/via/runin.fth	2010-01-05 19:03:26 UTC (rev 1644)
+++ cpu/x86/pc/olpc/via/runin.fth	2010-01-05 19:12:16 UTC (rev 1645)
@@ -282,6 +282,7 @@
     2dup $file-exists?  if
        2dup $delete
     then
+    2drop
 ;

: $copy!  ( $src $dst -- )