Permalink
Browse files

remove reference to pvalues

  • Loading branch information...
1 parent ccbac8f commit e6f41f6ff4794f0431572db2bcdf84c529c885c5 @jpalmucci committed Aug 28, 2009
Showing with 0 additions and 2 deletions.
  1. +0 −2 future.lisp
View
2 future.lisp
@@ -186,13 +186,11 @@ evaluated values. Blocks if a future is still running."
(push e cur-chunk)
(incf cur-count)))
(cond ((>= cur-count chunk-size)
- (jp:pvalues cur-count chunk-size)
(push cur-chunk chunks)
(setq cur-chunk nil
cur-count (- cur-count chunk-size)))))
(cond (cur-chunk
(push cur-chunk chunks)))
- (jp:pvalues chunk-size chunks)
;;evaluate the chunks in child processes
(let ((results (get-future-value

0 comments on commit e6f41f6

Please sign in to comment.