add special-symbol?

clojure · May 4, 2013 · 893d5ee · 893d5ee
1 parent 07f11ec
commit 893d5ee
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/devnotes/corelib.org b/devnotes/corelib.org
@@ -299,11 +299,10 @@ does what?
 * DONE keyword
 * DONE keyword?
 * DONE last
-* TODO lazy-cat
+* DONE lazy-cat
 * DONE lazy-seq
 * DONE let
 * DONE letfn
-** TODO needs compiler letfn*
 * line-seq
 * DONE list
 * DONE list*
@@ -494,7 +493,7 @@ as macro
 * DONE sorted-set
 * DONE sorted-set-by
 * TODO sorted?
-* TODO special-symbol?
+* DONE special-symbol?
 * spit
 * DONE split-at
 * DONE split-with

diff --git a/src/cljs/cljs/core.cljs b/src/cljs/cljs/core.cljs
@@ -7169,3 +7169,8 @@ Maps become Objects. Arbitrary keys are encoded to by key->js."
   (fn [x y]
     (cond (pred x y) -1 (pred y x) 1 :else 0)))
 
+(defn ^boolean special-symbol? [x]
+  (contains?
+    '#{if def fn* do let* loop* letfn* throw try*
+       recur new set! ns deftype* defrecord* . js* & quote}
+    x))