Update for compatibility with hy 0.9.12

1 files changed, 7 insertions, 7 deletions

diff --git a/hypoctl b/hypoctl
index e57e9eb..15dd6c8 100755
--- a/hypoctl
+++ b/hypoctl
@@ -23,16 +23,16 @@
    [description "Control hypo"]
    [run (lambda [self]
           (cond
-           ((not self.args)
-            (progn (print self.usage) 2))
-           ((= (car self.args) "start")
-            (hypo-start (cdr self.args)))
-           (True
+           [(not self.args)
+            (progn (print self.usage) 2)]
+           [(= (car self.args) "start")
+            (hypo-start (cdr self.args))]
+           [True
             (print (.format "error: command {0} does not exist"
-                            (car self.args))))))]])
+                            (car self.args)))]))]])
 
 (when (= __name__ "__main__")
-  (let ((cmd (hypoctl-command (cdr (cdr sys.argv)))))
+  (let ((cmd (hypoctl-command (cdr sys.argv))))
     (if cmd.error
       (progn (print (.format "error: {0}" cmd.error))
              (sys.exit 1))