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.

Ignore:
Timestamp:
2015-06-11T20:41:04-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/buchberger.lisp

    r1292 r1293  
    125125      (let ((pair (pair-queue-remove b)))
    126126        (when (null (pair-division-data pair))
    127           (setf (pair-division-data pair) (list (spoly ring
     127          (setf (pair-division-data pair) (list (spoly ring-and-order
    128128                                                       (pair-first pair)
    129129                                                       (pair-second pair))
    … …  
    176176                     (pair-queue-insert b pair))
    177177                  (multiple-value-setq (p sp c division-count)
    178                     (normal-form-step ring f p sp c division-count))))))))))))
     178                    (normal-form-step ring-and-order f p sp c division-count))))))))))))
Note: See TracChangeset for help on using the changeset viewer.