diff --git a/prelude.f b/prelude.f index 548cb55..d4cbcca 100644 --- a/prelude.f +++ b/prelude.f @@ -161,6 +161,22 @@ CHAR . EMIT CHAR . EMIT +\ Misc utilities + +: NIP SWAP DROP ; + +: ' + WORD FIND DUP 0<> IF + >CFA + ELSE + DROP WNFHOOK EXECUTE + THEN +; + +: [COMPILE] ' , ; IMMEDIATE + +CHAR . EMIT + \ Version number : VERSION-MAJOR 0 ;