small fixes/enhancements for solaris

git-svn-id: svn://coreboot.org/openbios/openbios-devel@43 f158a5a8-5612-0410-a976-696ce0be7e32
2024-02-13 08:34:06 +08:00 · 2006-06-05 19:30:59 +00:00
parent f9340b4ea9
commit 280a06e3d9
2 changed files with 2 additions and 1 deletions
--- a/forth/bootstrap/interpreter.fs
+++ b/forth/bootstrap/interpreter.fs
@@ -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
--- a/forth/device/package.fs
+++ b/forth/device/package.fs
@@ -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)