Formatting

board.scm

@@ -272,15 +272,7 @@
                      ((block:) #t)
                      ((reset:) (reset-piece! arg))
                      ((move:) (move-piece! arg dice)))))
-               instructions)
-              ;; (for-each
-              ;;  (lambda (piece)
-              ;;    (when (and (sdl2:point-in-rect? (get 'sdlprops 'mouse-point) (alist-ref coords: piece))
-              ;;               (eq? (alist-ref player: piece)
-              ;;                    active-player))
-              ;;      (move-piece! piece 1)))
-              ;;  (alist-ref pieces: state))
-              )))
+               instructions))))
 
   (define (handle-event ev)
     (case (sdl2:event-type ev)
@@ -363,6 +355,5 @@
     (render-logo! renderer)
     (draw-orig-board! renderer)
     (draw-pieces! renderer)
-    (render-dice! renderer)
-    )
+    (render-dice! renderer))
   )