fix unexpected _DO_ warning

Termina · May 11, 2023 · c6ccb87 · c6ccb87
1 parent f4d4aaf
commit c6ccb87
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 16 deletions.
diff --git a/calcit.cirru b/calcit.cirru
diff --git a/compact.cirru b/compact.cirru
@@ -55,10 +55,10 @@
               and
                 = "\"k" $ .-key event
                 .-metaKey event
-              case (-> @*store :router :name)
+              case-default (-> @*store :router :name)
+                do $ println "\"no thing to clear in" (-> @*store :router :name)
                 :home $ dispatch! :process/clear nil
                 :history $ dispatch! :process/clear-history nil
-                do $ println "\"no thing to clear in" (-> @*store :router :name)
         |reload! $ quote
           defn reload! () $ if
             or (some? client-errors) (some? server-errors)