diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-10-26 20:05:40 -0400 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-10-26 20:05:40 -0400 |
| commit | ddba135e7d9b596f0c9856e1f409e9f8e07001f1 (patch) | |
| tree | 6dbf1798fa618fdc1a623e50b1920a1795c0447e /forth/core.fth | |
| parent | 79a15b78b1d1a5a140e49dbd2de6e3d072af4b72 (diff) | |
add [COMPILE], fix :NONAME
Diffstat (limited to 'forth/core.fth')
| -rw-r--r-- | forth/core.fth | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/forth/core.fth b/forth/core.fth index a4bac26..90a8577 100644 --- a/forth/core.fth +++ b/forth/core.fth @@ -198,7 +198,7 @@ else dup emit rot 2dup c! char+ swap drop swap 1- then repeat drop r> - 1 chars / ; -: :noname 0 , here ] ; +: :noname here 0 , here swap ] ; : evaluate _source @ >r _sourceu @ >r >in @ >r 0 >in ! _sourceu ! _source ! _ev |