Fix mismatch with see. and string layout.

2022-01-09 09:22:21 -08:00
parent e6882c05e4
commit 6de02783fc
1 changed files with 1 additions and 1 deletions
--- a/ueforth/common/utils.fs
+++ b/ueforth/common/utils.fs
@ -44,7 +44,7 @@ internals definitions
   dup ['] DOLIT = if drop dup @ . cell+ exit then
   dup ['] DOFLIT = if drop dup sf@ <# [char] e hold #fs #> type space cell+ exit then
   dup ['] $@ = if drop ['] s" see.
-                   dup @ dup >r >r dup cell+ r> type cell+ r> aligned +
+                   dup @ dup >r >r dup cell+ r> type cell+ r> 1+ aligned +
                   [char] " emit space exit then
   dup  ['] BRANCH =
   over ['] 0BRANCH = or