From 03d15623523d834001211f1411e531db49573c59 Mon Sep 17 00:00:00 2001
From: Ambrose Bonnaire-Sergeant <abonnairesergeant@gmail.com>
Date: Sat, 29 Oct 2011 16:53:16 +0800
Subject: [PATCH] Upgraded core.logic version

---
 project.clj                        |  2 +-
 src/logic_introduction/core.clj    |  2 +-
 src/logic_introduction/numbers.clj | 10 +++++-----
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/project.clj b/project.clj
index a3f89d0..692ec40 100644
--- a/project.clj
+++ b/project.clj
@@ -3,4 +3,4 @@
   :dependencies [[org.clojure/clojure "1.3.0"]
                  [match "0.2.0-SNAPSHOT"]
                  [org.clojure/data.json "0.1.1"]
-                 [org.clojure/core.logic "0.6.2"]])
+                 [org.clojure/core.logic "0.6.4"]])
diff --git a/src/logic_introduction/core.clj b/src/logic_introduction/core.clj
index 9046a47..70870bf 100644
--- a/src/logic_introduction/core.clj
+++ b/src/logic_introduction/core.clj
@@ -20,7 +20,7 @@
     ((geto exp context result-type))
     ((matche [context exp result-type]
              ([_ [:apply ?fun ?arg] _]
-              (exist [arg-type]
+              (fresh [arg-type]
                      (!= ?fun ?arg)
                      (typedo context ?arg arg-type)
                      (typedo context ?fun [arg-type :> result-type])))))))
diff --git a/src/logic_introduction/numbers.clj b/src/logic_introduction/numbers.clj
index cf20cfe..51ed597 100644
--- a/src/logic_introduction/numbers.clj
+++ b/src/logic_introduction/numbers.clj
@@ -47,7 +47,7 @@
   of x and y"
   (matche [x y z]
           ([zero _ zero])
-          ([(s ?x) _ _] (exist [xy]
+          ([(s ?x) _ _] (fresh [xy]
                                (times ?x y xy)
                                (plus xy y z)))))
 
@@ -57,7 +57,7 @@
   (matche [n x y]
           ([(s ?x) zero zero])
           ([zero (s ?x) (s zero)])
-          ([(s ?n) _ _] (exist [z]
+          ([(s ?n) _ _] (fresh [z]
                                (exp ?n x z)
                                (times z x y)))))
 
@@ -65,7 +65,7 @@
   "f equals n factorial"
   (matche [n f]
           ([zero (s zero)])
-          ([(s ?n) _] (exist [f1]
+          ([(s ?n) _] (fresh [f1]
                              (factorial ?n f1)
                              (times (s ?n) f1 f)))))
 
@@ -78,7 +78,7 @@
 (defn modo [x y z]
   "z is the remainder of the integer division of x by y"
   (<o z y)
-  (exist [q qy]
+  (fresh [q qy]
          (times y q qy)
          (plus qy z x)))
 
@@ -88,7 +88,7 @@
   (matche [x y a]
           ([zero ?n (s ?n)])
           ([(s ?m) zero ?val] (ackermann ?m (s zero) ?val))
-          ([(s ?m) (s ?n) ?val] (exist [val1]
+          ([(s ?m) (s ?n) ?val] (fresh [val1]
                                        (ackermann (s ?m) ?n val1)
                                        (ackermann ?m val1 ?val)))))