Nov. 6, 2010
12:05 a.m.
v3: * Simplify condition. Signed-off-by: Andreas Färber <andreas.faerber@web.de> --- forth/admin/devices.fs | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/forth/admin/devices.fs b/forth/admin/devices.fs index 93f306c..db7b48c 100644 --- a/forth/admin/devices.fs +++ b/forth/admin/devices.fs @@ -330,6 +330,10 @@ : (.property-by-name) ( name-str name-len data len -- ) 2over " reg" strcmp 0= if .p-reg 2drop exit then + active-package get-nodename " memory" strcmp 0= if + 2over " available" strcmp 0= if .p-reg 2drop exit then + then + 2swap 2drop ( data len ) (.property) ; -- 1.7.3