Hello Mattias & All:
Shouldn't ALSO be corrected as follows:
diff --git a/core/words/also.asm b/core/words/also.asm
index 08cf258..33a6c2d 100644
--- a/core/words/also.asm
+++ b/core/words/also.asm
@@ -1,6 +1,6 @@
-; ( -- )
+; ( "name" -- )
; Search Order
-; Duplicate first entry in the current search order list
+; Add "named" wid to the search order head
VE_ALSO:
.dw $ff04
.db "also"
@@ -10,7 +10,16 @@ XT_ALSO:
.dw DO_COLON
PFA_ALSO:
.dw XT_GET_ORDER
+ .dw XT_PARSENAME
+ .dw XT_FINDNAME
+ .dw XT_DOCONDBRANCH
+ .dw PFA_ALSO1
+ .dw XT_EXECUTE
+ .dw XT_DOBRANCH
+ .dw PFA_ALSO2
+PFA_ALSO1:
.dw XT_OVER
+PFA_ALSO2:
.dw XT_SWAP
.dw XT_1PLUS
.dw XT_SET_ORDER
I left Forth 2012 RC2 behavior intact when "name" is not given though it
makes no sense to me.
Use example:
> order
16
1 16 ok
> wordlist constant liby
ok
> only also liby
ok
> order
16
2 86 16 ok
Thanks, Enoch.
------------------------------------------------------------------------------
CenturyLink Cloud: The Leader in Enterprise Cloud Services.
Learn Why More Businesses Are Choosing CenturyLink Cloud For
Critical Workloads, Development Environments & Everything In Between.
Get a Quote or Start a Free Trial Today.
http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk
_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
[email protected]
https://lists.sourceforge.net/lists/listinfo/amforth-devel
