close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 700 for branches/f4grobner


Ignore:
Timestamp:
2015-06-08T18:07:30-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/termlist.lisp

    r699 r700  
    139139         (multiple-value-bind
    140140             (lm-greater lm-equal)
    141              (monomial-order (termlist-lm p) (termlist-lm q))
     141             (funcall (ro-order ring) (termlist-lm p) (termlist-lm q))
    142142           (cond
    143143            (lm-equal
    … …  
    167167         (multiple-value-bind
    168168             (mgreater mequal)
    169              (monomial-order (termlist-lm p) (termlist-lm q))
     169             (funcall (ro-order ring) (termlist-lm p) (termlist-lm q))
    170170           (cond
    171171            (mequal
Note: See TracChangeset for help on using the changeset viewer.