Implement some utility words

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 ;