Change the new-device word so that subsequent words within a new device are added to the public wordlist and not

the private wordlist by default. This is required for executing Milax Fcode which defines package words which need to be externally 
visible.

As a consequence, it is now possible to remove lots of "external" words used building the device tree since this is now the 
default.


git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@655 f158a5a8-5612-0410-a976-696ce0be7e32

forth/device/builtin.fs

@@ -14,13 +14,11 @@
   
 new-device
   " builtin" device-name
-  external
   : open true ;
   : close ;
 
 new-device
   " console" device-name
-  external
   : open true ;
   : close ;
   : write dup >r bounds ?do i c@ (emit) loop r> ;

forth/device/device.fs

@@ -85,8 +85,8 @@ variable device-tree
   to my-self
   r@ active-package!
   
-  \ swtich to private wordlist
-  private
+  \ swtich to public wordlist
+  external
   r> drop
 ;
 

forth/device/tree.fs

@@ -13,7 +13,6 @@
 new-device
   " OpenBiosTeam,OpenBIOS" device-name
   1 encode-int " #address-cells" property
-  external
   : open true ;
   : close ;
   : decode-unit parse-hex ;
@@ -23,7 +22,6 @@ new-device
 
 new-device
   " aliases" device-name
-  external
   : open true ;
   : close ;
 finish-device
@@ -36,7 +34,6 @@ new-device
   0 0 " supports-bootinfo"    property
   1 encode-int " boot-syntax" property
   
-  external
   : selftest
     ." OpenBIOS selftest... succeded" cr
     true
@@ -58,7 +55,6 @@ new-device
   \ " -as" encode-string " bootargs" property
   0 encode-int " memory" property
   0 encode-int " mmu" property
-  external
 finish-device
   
 \ END

forth/packages/deblocker.fs

@@ -17,7 +17,6 @@
 
 new-device
   " deblocker" device-name
-  external
   \ open ( -- flag )
   \ Prepares the package for subsequent use, allocating the buffers used 
   \ by the deblocking process based upon the values returned by the parent 

forth/packages/disklabel.fs

@@ -14,7 +14,6 @@
 
 new-device
   " disklabel" device-name
-  external
   \ now the methods...
 
 finish-device

forth/packages/obp-tftp.fs

@@ -14,7 +14,6 @@
 
 new-device
   " obp-tftp" device-name
-  external
   \ now the methods...
 
 finish-device

forth/packages/packages.fs

@@ -10,7 +10,6 @@
 
 new-device
   " packages" device-name
-  external
   : open true ;
   : close ;
 finish-device

forth/packages/terminal-emulator.fs

@@ -14,7 +14,6 @@
 
 new-device
   " terminal-emulator" device-name
-  external
   \ now the methods...
 
 finish-device

forth/system/ciface.fs

@@ -11,6 +11,8 @@ active-package to ciface-ph
 \ private stuff
 \ -------------------------------------------------------------
 
+private
+
 variable callback-function
 
 : ?phandle ( phandle -- phandle )