Implement some utility words

2026-03-01 19:51:59 +00:00
parent 5d704d3bde
commit 1a9702ea5c
1 changed files with 16 additions and 0 deletions
--- 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 ;