core: variadic bit ops, set? covers sorted sets, if rejects extra forms

Three canonical-conformance fixes from the post-shrink batch:

- bit-and/bit-or/bit-xor/bit-and-not get Clojure's variadic arities as
  20-coll shells folding the binary host ops (now __bit-* seams). 2-arg call
  sites still compile to the native janet op via the backend's native-ops
  table. The passes.clj constant-fold table now names the seams — the public
  fns are overlay and don't exist when the compiler loads (this briefly broke
  every compile-mode init).

- core-set? recognizes the :jolt/sorted-set representation (jolt-dpn):
  (set? (sorted-set 1)) was false, and ifn? on sorted sets inherited the bug.

- (if) / (if test) / (if test then else extra) throw in both the analyzer
  and the interpreter — spec 03-special-forms X1, now marked verified.

Suite 4704 -> 4706; bench and the greeter example benchmark are flat.

test/spec/sets-spec.janet

@@ -43,3 +43,16 @@
   ["join"                   "#{{:a 1, :b 2, :c 3}}" "(do (require (quote [clojure.set :as s])) (s/join #{{:a 1 :b 2}} #{{:b 2 :c 3}}))"]
   ["map-invert"             "{1 :a}"     "(do (require (quote [clojure.set :as s])) (s/map-invert {:a 1}))"]
   ["rename-keys"            "{:b 1}"     "(do (require (quote [clojure.set :as s])) (s/rename-keys {:a 1} {:a :b}))"])
+
+# set? recognizes every set representation (jolt-dpn: sorted sets are tagged
+# tables the host set? predicate missed).
+(defspec "set / set? across representations"
+  ["literal"        "true"  "(set? #{1})"]
+  ["empty literal"  "true"  "(set? #{})"]
+  ["sorted-set"     "true"  "(set? (sorted-set 1 2))"]
+  ["sorted-set-by"  "true"  "(set? (sorted-set-by > 1 2))"]
+  ["empty sorted"   "true"  "(set? (sorted-set))"]
+  ["map is not"     "false" "(set? {})"]
+  ["vector is not"  "false" "(set? [1])"]
+  ["coll? still true" "true" "(coll? (sorted-set 1))"]
+  ["ifn? sorted-set" "true" "(ifn? (sorted-set 1))"])