Permalink
Browse files

Use ga/+ when adding coefficients in merge

  • Loading branch information...
1 parent 69dab5b commit 4891a53cef15322191a1a9c196622a0d8a9e0724 @ray1729 committed Jun 10, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/ray1729/clojure/polynomials.clj
View
2 src/ray1729/clojure/polynomials.clj
@@ -61,7 +61,7 @@
[p q]
(when (not= (variable p) (variable q))
(throw (IllegalArgumentException. "addition of polynomials in different variables not supported")))
- (polynomial (variable p) (merge-with + (terms p) (terms q))))
+ (polynomial (variable p) (merge-with ga/+ (terms p) (terms q))))
(defmethod ga/- ::polynomial
[p]

0 comments on commit 4891a53

Please sign in to comment.