[unify_nil
gergo@complang.tuwien.ac.at**20090126202844] {
hunk ./wam.fs 1075
+
+wam-instr: unify_nil ( -- )
+    mode case
+        read of
+            global-s @ @ create-nil unify
+        endof
+        write of
+            create-nil global-s @ !
+        endof
+    endcase
+    global-s @ cell+ set-s
+    ;unary-wam-instr
}