Skip to content

Commit

Permalink
Or to pop off the data frame...
Browse files Browse the repository at this point in the history
  • Loading branch information
karalekas committed Nov 18, 2023
1 parent 2c7b7c2 commit 439ccb4
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/operations/multireweight.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -60,6 +60,7 @@
(setf root-bucket (remove-duplicates root-bucket :test #'address=))
(process-continuation supervisor
`(CONVERGECAST-COLLECT-ROOTS ,source-root ,root-bucket)
`(FINISH-MULTIREWEIGHT)
`(HALT))))

(define-process-upkeep ((supervisor supervisor) now)
Expand Down Expand Up @@ -89,8 +90,7 @@
;; otherwise, push the next set of commands onto the stack
(process-continuation supervisor
`(CHECK-PRIORITY ,source-root ,hold-cluster)
`(START-INNER-MULTIREWEIGHT)
`(FINISH-MULTIREWEIGHT)))))))
`(START-INNER-MULTIREWEIGHT)))))))

(define-process-upkeep ((supervisor supervisor) now)
(CHECK-PRIORITY source-root target-roots)
Expand Down

0 comments on commit 439ccb4

Please sign in to comment.