 (defn questions
   "Get the list of questions from a form"
   [environment form]
-  (if (first (get environment "rqg"))
+  (if (get environment "rqg")
     (questions-with-rqg-in-one-column form)
     (questions-current-implementation form)))
 

  [environment questions responses]
  (->> responses
       (questions-responses-adapter environment questions)
       vals 
       (map first)
       (apply merge)))


     ids-to-adapt)))

(defn- questions-responses-adapter [environment questions responses]
  (if (get environment "rqg")
    (questions-responses-with-rqg-in-one-column questions responses)
    responses))

