Commit 95007324 authored by Bernd Paysan's avatar Bernd Paysan

Add WHERE support for words in kernel (excluding interpret/compile: for now,...

Add WHERE support for words in kernel (excluding interpret/compile: for now, and not correctly resolving aliases)
parent f12c8c13
Pipeline #208 failed with stage
in 4 minutes and 26 seconds
......@@ -1047,6 +1047,11 @@ constant gwhere-struct
2drop then
drop false ;
[IFUNDEF] $+!len
: $+!len ( n $addr -- addr )
>r r@ $@len tuck + r@ $!len r> @ cell+ + ;
[THEN]
: gwhere, ( ghost -- )
dup gwhere-duplicate? 0= IF
gwhere-struct cross-wheres $+!len >r
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment