- Timestamp:
- 2015-06-15T10:19:38-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1777 r1778 575 575 (defmfun $poly_lm (f vars) 576 576 (with-ring-and-order ((vars) :polynomials (f) :value-type :polynomial) 577 (make-poly-from-termlist (list (make-term (poly-lm f) (funcall (ring-unit ring-and-order)))))))577 (make-poly-from-termlist (list (make-term (poly-lm f) (funcall (ring-unit (ro-ring ring-and-order))))))))
Note:
See TracChangeset
for help on using the changeset viewer.