alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Named better.

Browse Source
This commit is contained in:
Brad Nelson
2021-01-22 23:13:39 -08:00
parent 39840858d7
commit 5cbc36a889
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ueforth/common/boot.fs
View File

@ -218,7 +218,7 @@ create input-buffer input-limit allot
: evaluate ( a n -- ) 'tib @ >r #tib @ >r >in @ >r : evaluate ( a n -- ) 'tib @ >r #tib @ >r >in @ >r
#tib ! 'tib ! 0 >in ! evaluate-buffer #tib ! 'tib ! 0 >in ! evaluate-buffer
r> >in ! r> #tib ! r> 'tib ! ; r> >in ! r> #tib ! r> 'tib ! ;
: query begin ['] evaluate-buffer catch : quit begin ['] evaluate-buffer catch
if 0 state ! sp0 sp! rp0 rp! ." ERROR" cr then if 0 state ! sp0 sp! rp0 rp! ." ERROR" cr then
prompt refill drop again ; prompt refill drop again ;
: ok ." uEForth" cr prompt refill drop query ; : ok ." uEForth" cr prompt refill drop quit ;