r618 - trunk/openbios-devel/forth/device

Author: stepan
Date: 2009-11-20 16:42:28 +0100 (Fri, 20 Nov 2009)
New Revision: 618

Modified:
   trunk/openbios-devel/forth/device/other.fs
Log:
fix ms

Modified: trunk/openbios-devel/forth/device/other.fs
===================================================================
--- trunk/openbios-devel/forth/device/other.fs	2009-11-20 15:40:53 UTC (rev 617)
+++ trunk/openbios-devel/forth/device/other.fs	2009-11-20 15:42:28 UTC (rev 618)
@@ -92,6 +92,7 @@
 : ms    ( n -- )
   get-msecs +
   begin dup get-msecs < until
+  drop
   ;

: alarm    ( xt n -- )