From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 8 Jul 2015 10:02:48 +0000 (+0100)
Subject: bin/ansible-inventory: Wrap `flet' of `getarg' around its body.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/distorted-ansible/commitdiff_plain/d70035189f8bfa51d73d2d360ea4fddb5ca05a2e

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

Eventually it'll even be used for something.
---

diff --git a/bin/ansible-inventory b/bin/ansible-inventory
index e7277f8..7e950de 100755
--- 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))