Move method declaration before usage

lfranchi · Oct 11, 2012 · 8fff55b · 8fff55b
1 parent 40e2e37
commit 8fff55b
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/ono/net.clj b/src/ono/net.clj
@@ -105,6 +105,11 @@
 ;; but add-peer requires get-tcp-handler (which require handle-json-message)
 (declare add-peer-connection)
 
+(defn test-flag
+  "Does a not-zero?-bit-and of the arguments"
+  [x y]
+  (not (zero? (bit-and x y))))
+
 (defn handle-json-msg
   "Handles an incoming JSON message from a peer"
   [ch peer flag body]
@@ -117,11 +122,6 @@
                                        port (dosync ((known-peers peer) :port))]
                                     (add-peer-connection host port peer key dbsync-connections))))))
 
-(defn test-flag
-  "Does a not-zero?-bit-and of the arguments"
-  [x y]
-  (not (zero? (bit-and x y))))
-
 (defn get-tcp-handler
   "Handles the TCP message for a specific peer"
   [ch peer]