[armedbear-cvs] r14375 - branches/1.1.x

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Feb 13 11:39:04 2013
New Revision: 14375

Log:
Backport r14366 | ehuelsmann | 2013-02-11 20:05:51 +0100 (Mon, 11 Feb 2013) | 1 line

Patch by ASau on freenode/#abcl: allow more casing variations.

Modified:
   branches/1.1.x/build-from-lisp.sh

Modified: branches/1.1.x/build-from-lisp.sh
==============================================================================
--- branches/1.1.x/build-from-lisp.sh	Wed Feb 13 11:34:07 2013	(r14374)
+++ branches/1.1.x/build-from-lisp.sh	Wed Feb 13 11:39:04 2013	(r14375)
@@ -15,17 +15,15 @@
 
 check_boolean()
 {
-    if [ "$1" == "t" ]   || \
-       [ "$1" == "T" ]   || \
-       [ "$1" == "nil" ] || \
-       [ "$1" == "NIL" ]
-    then
-        return
-    else
-        usage
-        echo "Error: Argument \`$1' is neither \"nil\" nor \"t\"."
-        exit 1
-    fi
+    case "$1" in
+        [Tt]|[Nn][Ii][Ll])
+            :;;
+        *)
+            usage
+            echo "Error: Argument \`$1' is neither \"nil\" nor \"t\"."
+            exit 1
+            ;;
+    esac
 }
 
 IMPL="$1"