(;module:
  lux
  (lux (control [monad #+ do])
       (data [text]
             text/format
             (coll ["d" dict])
             [maybe]))
  (luxc ["&" base]
        (lang ["la" analysis #+ Analysis]))
  (. ["./;" common]
     ["./;" host]))

(def: procedures
  ./common;Bundle
  (|> ./common;procedures
      (d;merge ./host;procedures)))

(def: #export (analyse-procedure analyse proc-name proc-args)
  (-> &;Analyser Text (List Code) (Lux Analysis))
  (default (&;fail (format "Unknown procedure: " (%t proc-name)))
           (do maybe;Monad<Maybe>
             [proc (d;get proc-name procedures)]
             (wrap (proc analyse proc-args)))))