From 1a9702ea5c8310b2ceb2cbc62ec08256f0bbbecd Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Sun, 1 Mar 2026 19:51:59 +0000
Subject: [PATCH] Implement some utility words

---
 prelude.f | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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 ;