to merge
This commit is contained in:
parent
b4c77a7e42
commit
589faba4e5
2
main.fs
2
main.fs
|
@ -241,7 +241,7 @@ S" you feel like throwing some stuff into the pool." set-message
|
||||||
draw-constructs cr
|
draw-constructs cr
|
||||||
." (q)uit (without saving)"
|
." (q)uit (without saving)"
|
||||||
\ add 1 to y
|
\ add 1 to y
|
||||||
1 + ;
|
inc-y ;
|
||||||
|
|
||||||
\ clear-xy clears the x and y positions from the stack
|
\ clear-xy clears the x and y positions from the stack
|
||||||
: clear-xy ( x y -- ) drop drop ;
|
: clear-xy ( x y -- ) drop drop ;
|
||||||
|
|
Reference in New Issue