Removed some debug messages.

3 files changed, 0 insertions, 14 deletions

diff --git a/src/clojure/foofs/filesystem.clj b/src/clojure/foofs/filesystem.clj
index ac1c20b..8991602 100644
--- a/src/clojure/foofs/filesystem.clj
+++ b/src/clojure/foofs/filesystem.clj
@@ -24,7 +24,6 @@
    ^clojure.lang.Agent readdir-agent]
   Filesystem
   (lookup [this request continuation!]
-    (.println *err* (str "lookup " request))
     (.lookup
       backend (:nodeid request) (:arg request)
       (fn [inode]
@@ -46,7 +45,6 @@
   (forget [this request]
     nil)
   (getattr [this request continuation!]
-    (.println *err* (str "getattr " request))
     (.getattr
       backend (:nodeid request)
       (fn [attr]
@@ -95,11 +93,9 @@
       (partial conj {:opendirs {}
                      :next-handle 0})))
   (opendir [this request continuation!]
-    (.println *err* (str "opendir " request))
     (.reference
       backend (:nodeid request)
       (fn [link]
-        (.println *err* (str "got link " link))
         (if (nil? link)
           (continuation! errno-noent)
           (send
@@ -123,7 +119,6 @@
                     {:opendirs (assoc opendirs handle [])
                      :next-handle (inc handle)})))))))))
   (readdir [this request continuation!]
-    (.println *err* (str "readdir " request))
     (let [arg (:arg request)
           handle (:handle arg)
           offset (:offset arg)
@@ -132,7 +127,6 @@
         (.clonedir
           backend (:nodeid request)
           (fn [dirents]
-            (.println *err* (str "got dirents " dirents))
             (let [encoded-dirents (encode-dirents dirents)]
               (send
                 readdir-agent
diff --git a/src/clojure/foofs/fuse/protocol.clj b/src/clojure/foofs/fuse/protocol.clj
index c19cece..61902b8 100644
--- a/src/clojure/foofs/fuse/protocol.clj
+++ b/src/clojure/foofs/fuse/protocol.clj
@@ -366,7 +366,6 @@
     (:filesystem fuse)
     request
     (fn [result]
-      (.println *err* (str "opendir result " result))
       (cond 
         (map? result) (reply-ok! fuse request (write-open-out result))
         (integer? result) (reply-error! fuse request result)
diff --git a/src/clojure/foofs/memorybackend.clj b/src/clojure/foofs/memorybackend.clj
index fe56eec..314cdec 100644
--- a/src/clojure/foofs/memorybackend.clj
+++ b/src/clojure/foofs/memorybackend.clj
@@ -51,33 +51,26 @@
   [^clojure.lang.Agent state-agent]
   FilesystemBackend
   (lookup [this inode child continuation!]
-    (.println *err* (str "lookup " inode " " child))
     (let [state (deref state-agent)
           lookup-table (:lookup-table state)
           children (get lookup-table inode)
           child (if (= "" child)
                   inode
                   (get children child))]
-      (.println *err* (str "child " child))
       (continuation! child)))
   (getattr [this inode continuation!]
-    (.println *err* (str "getattr " inode))
     (let [attr-table (:attr-table (deref state-agent))
           attr (get attr-table inode)]
-      (.println *err* (str "attr " attr))
       (if (nil? attr)
         (continuation! nil)
         (continuation! (assoc attr :inode inode)))))
   (reference [this inode continuation!]
-    (.println *err* (str "reference " inode))
     (send state-agent
           (partial link-modifier! state-agent inc inode continuation!)))
   (dereference [this inode continuation!]
-    (.println *err* (str "dereference " inode))
     (send state-agent
           (partial link-modifier! state-agent dec inode continuation!)))
   (clonedir [this inode continuation!]
-    (.println *err* (str "clonedir " inode))
     (let [state (deref state-agent)
           lookup-table (:lookup-table state)
           children (get lookup-table inode)