add SOURCE-ID

tcsullivan · Oct 28, 2023 · 6bd7338 · 6bd7338
1 parent 97a590f
commit 6bd7338
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/README.md b/README.md
@@ -15,7 +15,7 @@ Alee Forth uses the [Forth 2012 test suite](https://github.com/gerryjackson/fort
 **Missing** core extension words:
 
 ```
-PARSE-NAME REFILL RESTORE-INPUT S\" SAVE-INPUT SOURCE-ID
+PARSE-NAME REFILL RESTORE-INPUT S\" SAVE-INPUT
 ```
 
 ## Building

diff --git 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 ;
Original file line number	Diff line number	Diff line change
Expand Up		@@ -74,3 +74,4 @@
		rot dup >r c! r> char+ swap repeat
		2drop r> tuck - ;

		: source-id _source @ _begin < if 0 else -1 then ;