diff --git a/core.fs b/core.fs index 037e0a1..1e55b21 100644 --- a/core.fs +++ b/core.fs @@ -721,6 +721,22 @@ alias-builtin xor ^ compile drop ; immediate +\ a b rangeof endof +\ Execute when +\ a <= and <= b +: rangeof + compile 2 + compile pick + compile >= + compile swap + compile 2 + compile pick + compile <= + compile and + [compile] if + compile drop +; immediate + \ compile: ( orig1 -- orig2 ) : endof [compile] else