From 6bd7338414be807a19d426fbc3b65b225df2d7ce Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Sat, 28 Oct 2023 19:58:26 -0400
Subject: add SOURCE-ID

---
 forth/core-ext.fth | 1 +
 1 file changed, 1 insertion(+)

(limited to 'forth')

diff --git a/forth/core-ext.fth b/forth/core-ext.fth
index 0c263d9..8bc83be 100644
--- a/forth/core-ext.fth
+++ b/forth/core-ext.fth
@@ -74,3 +74,4 @@
             rot dup >r c! r> char+ swap repeat
             2drop r> tuck - ;
 
+: source-id _source @ _begin < if 0 else -1 then ;
-- 
cgit v1.2.3