fix "quit" spacing
This commit is contained in:
parent
b4c77a7e42
commit
9ee8440285
2
main.fs
2
main.fs
|
@ -238,7 +238,7 @@ S" you feel like throwing some stuff into the pool." set-message
|
||||||
: draw-actions
|
: draw-actions
|
||||||
2dup at-xy
|
2dup at-xy
|
||||||
draw-members cr 1 move-right
|
draw-members cr 1 move-right
|
||||||
draw-constructs cr
|
draw-constructs cr 1 move-right
|
||||||
." (q)uit (without saving)"
|
." (q)uit (without saving)"
|
||||||
\ add 1 to y
|
\ add 1 to y
|
||||||
1 + ;
|
1 + ;
|
||||||
|
|
Reference in New Issue