instrument-1 & unstrument-1 take quoted symbols

Author: dnolen

src/main/cljs/cljs/spec/test.cljc

@@ -41,15 +41,15 @@ returns the set of all symbols naming vars in those nses."
      ~@body))
 
 (defmacro instrument-1
-  [s opts]
+  [[quote s] opts]
   (let [v (ana-api/resolve &env s)]
     (when v
       `(let [checked# (instrument-1* ~s (var ~s) ~opts)]
          (when checked# (set! ~s checked#))
          '~(:name v)))))
 
 (defmacro unstrument-1
-  [s]
+  [[quote s]]
   (let [v (ana-api/resolve &env s)]
     (when v
       `(let [raw# (unstrument-1* ~s (var ~s))]

src/main/cljs/cljs/spec/test.cljs

@@ -293,7 +293,7 @@ Returns a map as quick-check, with :explain-data added if
 
   (instrumentable-syms)
 
-  (m/instrument-1 ranged-rand {})
+  (m/instrument-1 `ranged-rand {})
 
   (m/instrument `ranged-rand)
   (m/instrument `[ranged-rand])