r232 - openbios-devel/forth/device

Author: blueswirl
Date: 2008-08-30 12:55:33 +0200 (Sat, 30 Aug 2008)
New Revision: 232

Modified:
   openbios-devel/forth/device/package.fs
Log:
Remove package finding code that finds unrelated packages

Modified: openbios-devel/forth/device/package.fs
===================================================================
--- openbios-devel/forth/device/package.fs	2008-08-30 10:51:55 UTC (rev 231)
+++ openbios-devel/forth/device/package.fs	2008-08-30 10:55:33 UTC (rev 232)
@@ -119,17 +119,7 @@
   " /packages" find-dev 0= if 2drop false exit then
   find-rel-dev 0= if false exit then

-  \ Find the most recent node that match. One could make life
-  \ simple and add nodes at the head but I prefer it this way.
-  >r
-  " name" r@ get-package-property if " " then
-  r@ begin >dn.peer @ dup while
-    3dup
-    " name" rot get-package-property if " " then
-    strcmp
-    0= if r> drop dup >r then
-  repeat 3drop
-  r> true
+  true
 ;

: open-package  ( arg-str arg-len phandle -- ihandle | 0 )