Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

moved in-world to public API part of the file

  • Loading branch information...
commit d8f68d09e1f7cdab63ee8facee77206aed6b4dd5 1 parent 794b7d7
@tvcutsem authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/worlds_v0.clj
View
6 src/worlds_v0.clj
@@ -49,9 +49,6 @@
(def *this-world* nil)
-(defmacro in-world [world-expr & body]
- `(in-world-do ~world-expr (fn [] ~@body)))
-
(defn in-world-do [world fn]
(binding [*this-world* world] (fn)))
@@ -169,6 +166,9 @@
(defn this-world [] *this-world*)
+(defmacro in-world [world-expr & body]
+ `(in-world-do ~world-expr (fn [] ~@body)))
+
(defn sprout [parent-world]
;; maps ref to its "old" value when it was first read in this world,
;; or a special DontKnow value if the ref was never read in this world
Please sign in to comment.
Something went wrong with that request. Please try again.