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 /forth | |
| parent | 97a590fc8e2089cf757afb3a90ad61d65f9c3789 (diff) | |
add SOURCE-ID
Diffstat (limited to 'forth')
| -rw-r--r-- | forth/core-ext.fth | 1 |
1 files changed, 1 insertions, 0 deletions
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 ; |