bin/ansible-inventory: Wrap `flet' of `getarg' around its body.

[distorted-ansible] / bin / ansible-inventory

diff --git a/bin/ansible-inventory b/bin/ansible-inventory
index e7277f8..7e950de 100755 (executable)
--- a/bin/ansible-inventory
+++ b/bin/ansible-inventory
@@ -237,11 +237,11 @@
                                  (args
                                   (pop args))
                                  (t
-                                  (error "missing argument"))))))
-                  (case (char arg i)
-                    (#\h (format t "usage: ~A FILE ...~%"
-                                 (pathname-name *progname*)))
-                    (t (error "unknown option `-~A'" (char arg i))))))
+                                  (error "missing argument")))))
+                    (case (char arg i)
+                      (#\h (format t "usage: ~A FILE ...~%"
+                                   (pathname-name *progname*)))
+                      (t (error "unknown option `-~A'" (char arg i)))))))
                (t (push arg args) (return)))))
   (dolist (arg args)
     (let ((*package* pkg))