small revision

examples/M-modules/quick/sokoban/qml/items/box.qml

@@ -9,6 +9,7 @@ Image {
             onRunningChanged: { Lisp.call("qsoko:animation-change", running) }
         }
     }
+
     Behavior on y {
         NumberAnimation {
             duration: 150

examples/M-modules/quick/sokoban/qml/items/box2.qml

@@ -20,6 +20,8 @@ Image {
         }
     }
 
+    // final animation
+
     SequentialAnimation {
         objectName: "wiggle"
         loops: 5

examples/M-modules/quick/sokoban/qml/items/player.qml

@@ -9,6 +9,7 @@ Image {
             onRunningChanged: { Lisp.call("qsoko:animation-change", running) }
         }
     }
+
     Behavior on y {
         NumberAnimation {
             duration: 120

examples/M-modules/quick/sokoban/sokoban.lisp

@@ -218,9 +218,11 @@
                                (final-animation)))))))))
 
 (defun game-finished ()
+  ;; finished: no more :object, only :object2
   (let ((ch (type-char :object)))
     (dolist (str (sokoban:maze-text *maze*))
-      (when (find ch str) (return-from game-finished))))
+      (when (find ch str)
+        (return-from game-finished))))
   t)
 
 (defun final-animation ()