diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-10-28 19:58:26 -0400 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-10-28 19:58:26 -0400 |
| commit | 6bd7338414be807a19d426fbc3b65b225df2d7ce (patch) | |
| tree | 0d8883dd6396bf8272dc71e0b37dfe4d7901a7ec | |
| parent | 97a590fc8e2089cf757afb3a90ad61d65f9c3789 (diff) | |
add SOURCE-ID
| -rw-r--r-- | README.md | 2 | ||||
| -rw-r--r-- | forth/core-ext.fth | 1 |
2 files changed, 2 insertions, 1 deletions
@@ -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 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 ; |