[OpenBIOS] r232 - openbios-devel/forth/device
svn at openbios.org
svn at openbios.org
Sat Aug 30 12:55:33 CEST 2008
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 )
More information about the OpenBIOS
mailing list