Verified Commit 95007324 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

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

cross.fs

+5 −0
Changes for cross.fs: 5 added lines, 0 removed lines.
Original line number Diff line number Diff line
@@ -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