Condense DO LOOP.

2022-07-30 16:49:11 -07:00
parent 1e6aeacbe3
commit f0a1d54b35
3 changed files with 17 additions and 10 deletions
--- a/common/vocabulary.fs
+++ b/common/vocabulary.fs
@ -57,7 +57,7 @@ transfer{
  immediate? input-buffer ?echo ?arrow. arrow
  evaluate-buffer aliteral value-bind
  leaving( )leaving leaving leaving,
-  (do) (?do) (+loop) 
+  (do) (?do) (+loop) (loop) (leave)
  parse-quote digit $@ raw.s
  tib-setup input-limit
  [SKIP] [SKIP]' raw-ok boot-prompt free.