diff options
Diffstat (limited to 'src/clojure')
| -rw-r--r-- | src/clojure/contrib/miglayout/internal.clj | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/clojure/contrib/miglayout/internal.clj b/src/clojure/contrib/miglayout/internal.clj index 77476086..8a2131c5 100644 --- a/src/clojure/contrib/miglayout/internal.clj +++ b/src/clojure/contrib/miglayout/internal.clj @@ -15,7 +15,10 @@ (ns clojure.contrib.miglayout.internal (:import (java.awt Component)) - (:use (clojure.contrib except fcase))) + (:use (clojure.contrib + [except :only (throwf)] + [fcase :only (fcase)] + [java-utils :only (the-str)]))) (declare format-constraints) @@ -34,11 +37,6 @@ (throwf IllegalArgumentException "unrecognized constraint: %s (%s)" c (class c)))]) -(defn the-str - "Returns the string for x--its name if it's a keyword." - [x] - ((if (keyword? x) name str) x)) - (defn format-constraints "Returns a string representing all the constraints for one keyword-item or component formatted for miglayout." |