wait for server

2023-09-06 16:21:20 -04:00 · 2023-09-06 16:21:20 -04:00 · 0152377a95
parent 701acc2c6f
commit 0152377a95
1 changed files with 5 additions and 0 deletions
--- a/triangle-beer-league/triangle-beer-league.factor
+++ b/triangle-beer-league/triangle-beer-league.factor
@ -47,3 +47,8 @@ TUPLE: tbl < dispatcher ;

 : start-tbl-site ( -- server )
    <tbl-website-server> start-server ;
+
+: start-tbl ( -- )
+    start-tbl-site wait-for-server ;
+
+MAIN: start-tbl