Changeset 3941 for branches

Timestamp:

2016-05-29T23:53:57-07:00 (8 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/pair-queue.lisp (modified) (2 diffs)

branches/f4grobner/pair-queue.lisp

@@ -61 +61 @@
 can be any type of data, and a function PAIR-ORDER-FN used to compaire
 the calculated keys to determine which pair is more promising and
-should be considered first.
-The normal selection strategy for a given monomial order PAIR-ORDER-FN consists in
-selecting the pair with the minimal LCM of leading monomials first."))
+should be considered first.  The normal selection strategy for a given
+monomial order PAIR-ORDER-FN consists in selecting the pair with the
+minimal LCM of leading monomials first."))
 
 (defmethod print-object ((self selection-strategy) stream)
@@ -92 +92 @@
                    (pair-order-fn pair-order-fn)
                    (pq pq))
-      (setf pq (make-priority-queue
+      self
+    (setf pq (make-priority-queue
                 :element-type 'critical-pair
                 :element-key #'(lambda (pair) (funcall pair-key-fn (critical-pair-first pair) (critical-pair-second pair)))