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

Added eval.

Browse Source
This commit is contained in:
Brad Nelson
2021-01-02 23:32:23 -08:00
parent b1a5d06a99
commit ec68dadb80
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ueforth/common/boot.fs
View File

@ -178,7 +178,11 @@ create input-buffer input-limit allot
( REPL )
: prompt ." ok" cr ;
: eval-line begin >in @ #tib @ < while eval1 repeat ;
: query begin ['] eval-line catch if ." ERROR" cr then prompt refill drop again ;
: eval-buffer begin >in @ #tib @ < while eval1 repeat ;
: eval ( a n -- ) 'tib @ >r #tib @ >r >in @ >r
#tib ! 'tib ! 0 >in ! eval-buffer
r> >in ! r> #tib ! r> 'tib ! ;
: query begin ['] eval-buffer catch
if ." ERROR" cr then prompt refill drop again ;
: ok ." uEForth" cr prompt refill drop query ;