Added op=

jonase · Feb 27, 2012 · ed4d968 · ed4d968
1 parent 91c7e58
commit ed4d968
Showing 1 changed file with 15 additions and 4 deletions.
diff --git a/src/analyze/util.clj b/src/analyze/util.clj
@@ -22,12 +22,23 @@
             :children
             expr))
 
+#_(defn expr-zip
+  "Return a zipper over expr"
+  [expr]
+  (zipper #(contains? % :children)
+          #(:children %)
+          #(assoc %1 :children %2)
+          expr))
+
+(defn op= [kw]
+  (fn [expr]
+    (= (:op expr) kw)))
+
+
 (comment
 (use 'analyze.core)
 (print-expr 
   (analyze-one {:ns {:name 'clojure.core} :context :eval} 
-               '(defn a 
-                  ([^bytes b] ^Integer b)
-                  ([b c] c)))
+               '(deftype A []))
   :children :Expr-obj :ObjMethod-obj :LocalBinding-obj :env :BindingInit-obj)
-  )
+)