                                 [:root target-root-keyword target-root-keyword])]
        :target-semantics (strip-refs
                           (u/get-in target-expression [:synsem :sem]))})))
-    
+
 (defn get-lexeme [canonical language & [ spec ]]
   "get a lexeme from the database given the canonical form, given a
   language and optionally additional filter specification"


        ;; TODO: catch possible deref NPE exception that can happen when model is not yet loaded.
        source-model @@(get models source-language)
        source-expression
        (source-timing-fn
         (binding [babel.generate/truncate? true]
           (generate source-spec source-model)))]
    (let [pairing
          {:target ((:morph target-model) target-expression)

                     :target-local target-locale
                     :target-spec target-spec})}))))))

(def ^:dynamic source-grammar-subset :all)
(def ^:dynamic target-grammar-subset :all)
(defn generate-question-and-correct-set [target-spec
                                         source-language source-locale
                                         target-language target-locale]
  (let [source-timing? false
        source-timing-fn (if source-timing? #(time %)
                             (fn [x] x))
