(in-package :mt)

(setf *transfer-edge-limit* 5000)

;;
;; the `language model' of dependency triples used to rank transfer outputs,
;; trained on the gold-standard ERG MRSs from the LOGON treebank
;;
(setf *transfer-tm*
  (namestring (make-pathname 
	       :directory (namestring
			   (dir-append 
			    (get-sources-dir "mt") '(:relative "mt")))
	       :name "mrs.blm")))

;;
;; limit post-transfer SEM-I comparison to checking the validity of predicate
;; names and variable properties (but not role values and EP arity).
;;
(setf *semi-test* '(:predicates :properties))