Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

wanted to split api into some files, but will not do this now

commit 1134ecaf1f98bd5841041004c1c0e31572f74689 1 parent efd6fbd
@bertschi authored
Showing with 5 additions and 2 deletions.
  1. +5 −2 src/probabilistic_clojure/embedded/api.clj
View
7 src/probabilistic_clojure/embedded/api.clj
@@ -205,7 +205,10 @@ This function should not be called directly, but only in the context of det-cp."
(det-cp-fn name# @whole-fn# body-fn#))))
(det-cp-fn name# @whole-fn# body-fn#)))
-(defmulti gv :type)
+(defmulti gv
+ "Accesses the value of a choice point. When used in the body of another choice
+point this creates a dependency between those choice points."
+ :type)
(defmethod gv ::deterministic
;; Accesses the value of a deterministic choice point.
@@ -636,4 +639,4 @@ Implements the heuristic to prefer choice points with many dependents."
(defmacro memo [tag cp-form & memo-args]
`(det-cp ~tag
(binding [*addr* (list ~@(rest cp-form) ~@memo-args)]
- (gv ~cp-form))))
+ (gv ~cp-form))))
Please sign in to comment.
Something went wrong with that request. Please try again.