Permalink
Browse files

add `special-symbol?`

  • Loading branch information...
1 parent 07f11ec commit 893d5eebc24fc314b283e2956aac3f10349a2257 @swannodette swannodette committed May 4, 2013
Showing with 7 additions and 3 deletions.
  1. +2 −3 devnotes/corelib.org
  2. +5 −0 src/cljs/cljs/core.cljs
View
5 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
View
5 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))

0 comments on commit 893d5ee

Please sign in to comment.