From ec68dadb801a6c3b984133867b6febbadf105c23 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Sat, 2 Jan 2021 23:32:23 -0800
Subject: [PATCH] Added eval.

---
 ueforth/common/boot.fs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ueforth/common/boot.fs b/ueforth/common/boot.fs
index 7611d15..008b415 100644
--- a/ueforth/common/boot.fs
+++ b/ueforth/common/boot.fs
@@ -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 ;