to merge

main.fs

@@ -241,7 +241,7 @@ S" you feel like throwing some stuff into the pool." set-message
 	draw-constructs cr
 	." (q)uit (without saving)"
 	\ add 1 to y
-	1 + ;
+	inc-y ;
 
 \ clear-xy clears the x and y positions from the stack
 : clear-xy ( x y -- ) drop drop ;