aboutsummaryrefslogtreecommitdiffstats
path: root/hypoctl
diff options
context:
space:
mode:
Diffstat (limited to 'hypoctl')
-rwxr-xr-xhypoctl14
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))