[OpenBIOS] r43 - in openbios-devel/forth: bootstrap device

[svn@openbios.org]

Author: stepan
Date: 2006-06-05 21:30:59 +0200 (Mon, 05 Jun 2006)
New Revision: 43

Modified:
   openbios-devel/forth/bootstrap/interpreter.fs
   openbios-devel/forth/device/package.fs
Log:
small fixes/enhancements for solaris


Modified: openbios-devel/forth/bootstrap/interpreter.fs
===================================================================
--- openbios-devel/forth/bootstrap/interpreter.fs	2006-06-05 17:02:59 UTC (rev 42)
+++ openbios-devel/forth/bootstrap/interpreter.fs	2006-06-05 19:30:59 UTC (rev 43)
@@ -92,6 +92,7 @@
       -21 of s" undefined method." type endof
       -22 of s" no such device." type endof
       dup s" Exception #" type . 
+      0 state !
     endcase
   else
     state @ 0= if

Modified: openbios-devel/forth/device/package.fs
===================================================================
--- openbios-devel/forth/device/package.fs	2006-06-05 17:02:59 UTC (rev 42)
+++ openbios-devel/forth/device/package.fs	2006-06-05 19:30:59 UTC (rev 43)
@@ -10,7 +10,7 @@
 
 \ variable last-package 0 last-package !
 \ 0 value active-package
-
+: current-device active-package ;
   
 \ 
 \ 5.3.4.1 Open/Close packages (part 1)