diff --git a/core.fs b/core.fs index d872fed..33f3b4c 100644 --- a/core.fs +++ b/core.fs @@ -629,6 +629,10 @@ alias-builtin xor ^ [compile] if ; immediate +\ ( n -- n n | n ) +\ duplicate if n<>0 +: ?dup dup if dup then ; + \ === Loops === \ begin until \ begin again