~crc_/retroforth

8b8e0376808a52e20af5987175f43041bb592bd9 — crc a month ago 0bec9c3
takawiri: string previews working

FossilOrigin-Name: dceec910de7f9dd191cdaf60d388776cf58641c1fbe51e40aa71a35595e5b515
1 files changed, 13 insertions(+), 2 deletions(-)

M takawiri.retro
M takawiri.retro => takawiri.retro +13 -2
@@ 161,8 161,19 @@ Note: this won't be useful until after the alternate `s:evaluate`
is done.

~~~
:string? (v-vf) dup STRINGS gt? ;
:ss:display
 over n:inc #12 n:add #84 vt:row,col
 fg:red
 tos? [ 'TOS:___ s:put ] [ '_______ s:put ] choose
 vt:reset
 s:put ;

:ss:not-string
 over n:inc #12 n:add #84 vt:row,col fg:blue '_______n/a s:put drop vt:reset ;

:ss/later (-)
  #0 &Items [ dup STRINGS gt? [ over n:inc #12 n:add #84 vt:row,col s:put ] &drop choose n:inc  ] a:for-each drop
  #0 &Items [ string? &ss:display &ss:not-string choose n:inc  ] a:for-each drop
;
~~~



@@ 198,7 209,7 @@ is done.
  [ vt:reset vt:clear vt:home
    display:tob
    sections
    stats dss (ss watchlist
    stats dss ss/later watchlist
    prompt s:get-word vt:reset
    [ dup s:put sp interpret ] tob:with
 ] forever ;