From d13dbac8bb0a085321d9a764101321dc4faa6ac7 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Sat, 27 Feb 2021 11:31:36 -0800
Subject: [PATCH] Adding :noname

---
 ueforth/common/utils.fs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ueforth/common/utils.fs b/ueforth/common/utils.fs
index a469adb..7ab44eb 100644
--- a/ueforth/common/utils.fs
+++ b/ueforth/common/utils.fs
@@ -10,6 +10,9 @@
 ( Remove from Dictionary )
 : forget ( "name" ) ' dup >link current @ !  >name drop here - allot ;
 
+2 constant SMUDGE
+: :noname ( -- xt ) 0 , current @ @ , SMUDGE , here dup current @ ! ['] = @ , postpone ] ;
+
 internals definitions
 : mem= ( a a n -- f)
    for aft 2dup c@ swap c@ <> if 2drop rdrop 0 exit then 1+ swap 1+ then next 2drop -1 ;