Reduce evaluate1.

2024-04-20 22:20:26 -07:00
parent f08769855d
commit 3f6c7d1dbe
5 changed files with 28 additions and 39 deletions
--- a/common/vocabulary.fs
+++ b/common/vocabulary.fs
@ -61,7 +61,7 @@ transfer{
  tib-setup input-limit sp-limit ?stack
  [SKIP] [SKIP]' raw-ok boot-prompt free.
  $place zplace BUILTIN_MARK
-  nest-depth handler +evaluate1 do-notfound
+  nest-depth handler +evaluate1 do-notfound interpret0
 }transfer

 ( Move branching opcodes to separate vocabulary. )