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 )