(defn defop
"Define operators for formula macro"
([op prec & [trans]]
(dosync (ref-set +precedence-table+ (assoc @+precedence-table+ op prec)))
(when-not (nil? trans)
(dosync (ref-set +translation-table+ (assoc @+translation-table+ op trans))))
(dosync (ref-set +highest-precedence+ (apply max (map val @+precedence-table+))))))
Comments top
No comments for defop. Log in to add a comment.