make: revert/correct fix for plain undef symbol.

[jackhill/mal.git] / forth / step4_if_fn_do.fs

diff --git a/forth/step4_if_fn_do.fs b/forth/step4_if_fn_do.fs
index 56e1e45..72b8ac1 100644 (file)
--- a/forth/step4_if_fn_do.fs
+++ b/forth/step4_if_fn_do.fs
@@ -198,6 +198,8 @@ drop
 create buff 128 allot
 77777777777 constant stack-leak-detect
 
+s\" (def! not (fn* (x) (if x false true)))" rep 2drop
+
 : read-lines
     begin
       ." user> "