r642 - trunk/openbios-devel/forth/device

Author: mcayland
Date: 2009-12-09 19:44:01 +0100 (Wed, 09 Dec 2009)
New Revision: 642

Modified:
   trunk/openbios-devel/forth/device/other.fs
Log:
Correct Forth data stack when the alarm word is used (the implementation is currently missing, but we'll worry about that a bit 
later). This allows us to proceed further with SPARC64 boot.

Signed-off-by: Mark Cave-Ayland

Modified: trunk/openbios-devel/forth/device/other.fs
===================================================================
--- trunk/openbios-devel/forth/device/other.fs	2009-12-09 01:09:48 UTC (rev 641)
+++ trunk/openbios-devel/forth/device/other.fs	2009-12-09 18:44:01 UTC (rev 642)
@@ -96,6 +96,7 @@
   ;

: alarm    ( xt n -- )
+  2drop
   ;

: user-abort    ( ... -- )  ( R: ... -- )