From f045a284631b035140c92cd3a3b663ff764167fc Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 23 Jan 2014 21:27:54 +0100
Subject: Update for compatibility with hy 0.9.12

---
 hypoctl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'hypoctl')

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))
-- 
cgit v1.2.3-54-g00ecf