From 9f0724e1bc765b7bc07c04c4af578c5aba411dbd Mon Sep 17 00:00:00 2001 From: nihilazo Date: Tue, 27 Apr 2021 13:55:21 +0100 Subject: [PATCH] fix bar issues --- main.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/main.fs b/main.fs index 8f89eb2..ab687f1 100644 --- a/main.fs +++ b/main.fs @@ -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 )