Adding stack over/underflow check.

2022-07-31 21:53:13 -07:00
parent a32fce7334
commit 243087aee1
2 changed files with 7 additions and 2 deletions
--- a/common/vocabulary.fs
+++ b/common/vocabulary.fs
@ -58,7 +58,7 @@ transfer{
  evaluate-buffer aliteral value-bind
  leaving( )leaving leaving leaving,
  parse-quote digit $@ raw.s
-  tib-setup input-limit
+  tib-setup input-limit sp-limit ?stack
  [SKIP] [SKIP]' raw-ok boot-prompt free.
  $place zplace BUILTIN_MARK
 }transfer