diff options
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 ; |