From 5cbc36a889839d79cdc6f7d6c29ef95174641cf8 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Fri, 22 Jan 2021 23:13:39 -0800
Subject: [PATCH] Named better.

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

diff --git a/ueforth/common/boot.fs b/ueforth/common/boot.fs
index 99090bf..c47c5a0 100644
--- a/ueforth/common/boot.fs
+++ b/ueforth/common/boot.fs
@@ -218,7 +218,7 @@ create input-buffer   input-limit allot
 : evaluate ( a n -- ) 'tib @ >r #tib @ >r >in @ >r
                       #tib ! 'tib ! 0 >in ! evaluate-buffer
                       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
           prompt refill drop again ;
-: ok   ." uEForth" cr prompt refill drop query ;
+: ok   ." uEForth" cr prompt refill drop quit ;