From cf88fd784e87c326a0ebf864811a813811807aa1 Mon Sep 17 00:00:00 2001
From: Bernd Paysan <bernd.paysan@gmx.de>
Date: Wed, 28 Aug 2019 11:07:04 +0200
Subject: [PATCH] Add location info in name, and 0name,

---
 kernel/comp.fs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/kernel/comp.fs b/kernel/comp.fs
index b87f7cf5..82d0f784 100644
--- a/kernel/comp.fs
+++ b/kernel/comp.fs
@@ -147,13 +147,15 @@ Defer check-shadow ( addr u wid -- )
     dup here + dup cfaligned >align
     nlstring,
     get-current 1 or A,
+    here xt-location drop
     \ link field; before revealing, it contains the
     \ tagged reveal-into wordlist
     here cell+ last ! ; \ set last header
 : 0name, ( -- )
-    cfalign 0 last ! ;
+    cfalign 0 last !
+    here xt-location drop ;
 : namevt, ( namevt -- )
-    here xt-location drop , here lastcfa ! ; \ add location stamps on vt+cf
+    , here lastcfa ! ; \ add location stamps on vt+cf
 
 : noname-vt ( -- )
     \G modify vt for noname words
-- 
GitLab