[OpenBIOS] [PATCH] Zero-pad byte properties

[Andreas Färber]

.properties before:
someproperty              -- 3 : 1 42 3

Now:
someproperty              -- 3 : 01 42 03

Signed-off-by: Andreas Färber 
---
 forth/admin/devices.fs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/forth/admin/devices.fs b/forth/admin/devices.fs
index e24c6da..dbb4646 100644
--- a/forth/admin/devices.fs
+++ b/forth/admin/devices.fs
@@ -283,7 +283,7 @@
     dup r@ + c@
     ( len n ch )

-    pocket tohexstr type ."  "
+    pocket tohexstr dup 2 <> if ." 0" then type ."  "
     1+
   repeat 
   2drop r> drop 1