fix bar issues

This commit is contained in:
Nico 2021-04-27 13:55:21 +01:00
parent d21141cb06
commit 9f0724e1bc
1 changed files with 1 additions and 1 deletions

View File

@ -268,7 +268,7 @@ S" you feel like throwing some stuff into the pool." set-message
\ draw-tab draws a single tab for a screen
: draw-tab ( i -- )
dup screen @ = if
." >" bl then draw-screen-name ;
." >" else space then draw-screen-name ;
\ draw-tab-bar draws the tab bar. TODO something here seems to be clobbering the stack
: draw-tab-bar ( x y -- x y )