[OpenBIOS] r43 - in openbios-devel/forth: bootstrap device
svn@openbios.org
svn at openbios.org
Mon Jun 5 21:31:00 CEST 2006
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)
More information about the OpenBIOS
mailing list