Add records w/ and w/o fields

michalmarczyk · Apr 19, 2012 · d8ac662 · d8ac662
1 parent bc93fcb
commit d8ac662
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 1 deletion.
diff --git a/src/cljs/phm.cljs b/src/cljs/phm.cljs
@@ -1,4 +1,5 @@
-(ns phm)
+(ns phm
+  (:use [phm.records :only [->RFoo ->RBar]]))
 
 (defn ^:export empty-obj-map []
   cljs.core.ObjMap/EMPTY)
@@ -35,3 +36,12 @@
 
 (defn ^:export assocbangwrapper [tm k v]
   (assoc! tm k v))
+
+(defn ^:export make-keyword [n]
+  (keyword n))
+
+(defn ^:export fresh-record-four-fields []
+  (->RFoo nil nil nil nil))
+
+(defn ^:export fresh-record-no-fields []
+  (->RBar))
diff --git a/src/cljs/phm/records.cljs b/src/cljs/phm/records.cljs
@@ -0,0 +1,5 @@
+(ns phm.records) 
+
+(defrecord RFoo [a s d f])
+
+(defrecord RBar [])