test-method for "instantiate-rtas" would fail on the /rtas node. According to CHRP 1.5 draft, the stack order seems reversed.
Signed-off-by: Andreas Färber andreas.faerber@web.de --- forth/system/ciface.fs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/forth/system/ciface.fs b/forth/system/ciface.fs index 27a1deb..ff87608 100644 --- a/forth/system/ciface.fs +++ b/forth/system/ciface.fs @@ -315,10 +315,10 @@ external \ PowerPC Microprocessor CHRP binding \ 10.5.2. Client Interface
-( phandle cstring-method -- missing ) +( cstring-method phandle -- missing )
: test-method - dup cstrlen rot + swap dup cstrlen rot find-method 0= if -1 else drop 0 then ; [THEN]