diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-04 07:02:22 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-04 07:02:22 -0500 |
| commit | a51428cff0b7d16e7e0b5e5bfd05c47ab55e4fa2 (patch) | |
| tree | f29699ece46316faab4786d8618da34581059231 /core.fth | |
| parent | 0a294fa8cc8f9f5c491a3aec4ff416a455d6ebef (diff) | |
evaluate complete
Diffstat (limited to 'core.fth')
| -rw-r--r-- | core.fth | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -26,7 +26,8 @@ : immediate imm ; : state 3 cells ; : _source 4 cells ; -: >in 5 cells ; +: _sourceu 5 cells ; +: >in 6 cells ; : , here ! 1 cells allot ; @@ -232,6 +233,6 @@ dup @ _latest ! cell+ @ here swap - allot ; : :noname 0 , here ] ; -: evaluate _source @ >r >in @ >r - 0 >in ! _source ! 5 sys - r> >in ! r> _source ! ; +: evaluate _source @ >r _sourceu @ >r >in @ >r + 0 >in ! _sourceu ! _source ! 5 sys + r> >in ! r> _sourceu ! r> _source ! ; |