Consolidate null checks for satisfies in protocol (#588)

* v0.8.126

* Bookkeep null protocol inside of protocol obj

Author: borkdude

examples/wordle/wordle.mjs

@@ -1,186 +1,101 @@
-import { atom, reset_BANG_, range, conj, vec, prn, nth, swap_BANG_, vector, mapv, subvec, inc, str, apply, map_indexed, deref, re_matches } from 'clavascript/core.js'
-var board_state = atom([]);
-var counter = atom(0);
-var attempt = atom(0);
-var word_of_the_day = atom("hello");
+import * as squint_core from 'squint-cljs/core.js';
+var board_state = squint_core.atom([]);
+var counter = squint_core.atom(0);
+var attempt = squint_core.atom(0);
+var word_of_the_day = squint_core.atom("hello");
 var write_letter = function (cell, letter) {
-return cell["textContent"] = letter;
+return cell.textContent = letter;
 ;
 };
 var make_cell = function () {
-let cell1 = document.createElement("div");
-cell1["className"] = "cell";
+const cell1 = document.createElement("div");
+cell1.className = "cell";
 return cell1;
 };
 var make_board = function (n) {
-let board2 = document.createElement("div");
-board2["className"] = "board";
-let seq__37 = range(n);
-let chunk__48 = null;
-let count__59 = 0;
-let i__610 = 0;
-while(true){
-if ((i__610 < count__59)) {
-let _11 = _nth(chunk__48, i__610);
-let cell12 = make_cell();
-swap_BANG_(board_state, conj, cell12);
-board2.appendChild(cell12);
-null;
-let G__13 = seq__37;
-let G__14 = chunk__48;
-let G__15 = count__59;
-let G__16 = unchecked_inc(i__610);
-seq__37 = G__13;
-chunk__48 = G__14;
-count__59 = G__15;
-i__610 = G__16;
-continue;
-} else {
-let temp__29223__auto__17 = ((seq__37["length"] > 0)) ? (seq__37) : (null);
-if (temp__29223__auto__17) {
-let seq__318 = temp__29223__auto__17;
-if (false) {
-let c__29616__auto__19 = chunk_first(seq__318);
-let G__20 = chunk_rest(seq__318);
-let G__21 = c__29616__auto__19;
-let G__22 = count(c__29616__auto__19);
-let G__23 = 0;
-seq__37 = G__20;
-chunk__48 = G__21;
-count__59 = G__22;
-i__610 = G__23;
-continue;
-} else {
-let _24 = (seq__318[0]);
-let cell25 = make_cell();
-swap_BANG_(board_state, conj, cell25);
-board2.appendChild(cell25);
-null;
-let G__26 = seq__318.slice(1);
-let G__27 = null;
-let G__28 = 0;
-let G__29 = 0;
-seq__37 = G__26;
-chunk__48 = G__27;
-count__59 = G__28;
-i__610 = G__29;
-continue;
-}}};break;
-}
-;
-return board2;
+const board1 = document.createElement("div");
+board1.className = "board";
+for (let G__2 of squint_core.iterable(squint_core.range(n))) {
+const _3 = G__2;
+const cell4 = make_cell();
+squint_core.swap_BANG_(board_state, squint_core.conj, cell4);
+board1.appendChild(cell4)
+};
+return board1;
 };
 var get_letter = function (cell) {
-return cell["textContent"];
+return cell.textContent;
 };
 var color_cell = function (idx, cell) {
-let color30 = function (el, color) {
-return el["style"]["backgroundColor"] = color;
+const color1 = (function (el, color) {
+return el.style.backgroundColor = color;
 ;
-};
-let letter31 = get_letter(cell);
-if ((letter31 === nth(deref(word_of_the_day), idx))) {
-return color30(cell, "green");} else {
-if (contains_QMARK_(set(deref(word_of_the_day)), letter31)) {
-return color30(cell, "aqua");} else {
+});
+const letter2 = get_letter(cell);
+if ((letter2) === (squint_core.nth(squint_core.deref(word_of_the_day), idx))) {
+return color1(cell, "green");} else {
+if (squint_core.truth_(squint_core.contains_QMARK_(squint_core.set(squint_core.deref(word_of_the_day)), letter2))) {
+return color1(cell, "aqua");} else {
 if ("else") {
-return color30(cell, "#333333");} else {
+return color1(cell, "#333333");} else {
 return null;}}}
 };
 var check_solution = function (cells) {
-let seq__3236 = map_indexed(vector, cells);
-let chunk__3337 = null;
-let count__3438 = 0;
-let i__3539 = 0;
-while(true){
-if ((i__3539 < count__3438)) {
-let vec__4043 = _nth(chunk__3337, i__3539);
-let idx44 = nth(vec__4043, 0, null);
-let cell45 = nth(vec__4043, 1, null);
-color_cell(idx44, cell45);
-null;
-let G__46 = seq__3236;
-let G__47 = chunk__3337;
-let G__48 = count__3438;
-let G__49 = unchecked_inc(i__3539);
-seq__3236 = G__46;
-chunk__3337 = G__47;
-count__3438 = G__48;
-i__3539 = G__49;
-continue;
-} else {
-let temp__29223__auto__50 = ((seq__3236["length"] > 0)) ? (seq__3236) : (null);
-if (temp__29223__auto__50) {
-let seq__3251 = temp__29223__auto__50;
-if (false) {
-let c__29616__auto__52 = chunk_first(seq__3251);
-let G__53 = chunk_rest(seq__3251);
-let G__54 = c__29616__auto__52;
-let G__55 = count(c__29616__auto__52);
-let G__56 = 0;
-seq__3236 = G__53;
-chunk__3337 = G__54;
-count__3438 = G__55;
-i__3539 = G__56;
-continue;
-} else {
-let vec__5760 = (seq__3251[0]);
-let idx61 = nth(vec__5760, 0, null);
-let cell62 = nth(vec__5760, 1, null);
-color_cell(idx61, cell62);
-null;
-let G__63 = seq__3251.slice(1);
-let G__64 = null;
-let G__65 = 0;
-let G__66 = 0;
-seq__3236 = G__63;
-chunk__3337 = G__64;
-count__3438 = G__65;
-i__3539 = G__66;
-continue;
-}}};break;
-}
-;
-prn(str(mapv(get_letter, cells)));
-prn(str(vec(deref(word_of_the_day))));
-return (apply(str, mapv(get_letter, cells)) === str(deref(word_of_the_day)));
+for (let G__1 of squint_core.iterable(squint_core.map_indexed(squint_core.vector, cells))) {
+const vec__25 = G__1;
+const idx6 = squint_core.nth(vec__25, 0, null);
+const cell7 = squint_core.nth(vec__25, 1, null);
+color_cell(idx6, cell7)
+};
+return (squint_core.apply(squint_core.str, squint_core.mapv(get_letter, cells))) === (squint_core.str(squint_core.deref(word_of_the_day)));
 };
 var user_input = function (key) {
-let start67 = (5 * deref(attempt));
-let end68 = (5 * (deref(attempt) + 1));
-if (re_matches(/[a-z]/, key)&&(deref(counter) < end68)) {
-write_letter(nth(deref(board_state), deref(counter)), key);
-return swap_BANG_(counter, inc);} else {
-if ((key === "backspace")&&(deref(counter) > start67)) {
-swap_BANG_(counter, dec);
-return write_letter(nth(deref(board_state), deref(counter)), "");} else {
-if ((key === "enter")&&(deref(counter) === end68)) {
-if (check_solution(subvec(deref(board_state), start67, end68))) {
+const start1 = (5) * (squint_core.deref(attempt));
+const end2 = (5) * ((squint_core.deref(attempt) + 1));
+if (squint_core.truth_((() => {
+const and__24178__auto__3 = squint_core.re_matches(/[a-z]/, key);
+if (squint_core.truth_(and__24178__auto__3)) {
+return (squint_core.deref(counter)) < (end2);} else {
+return and__24178__auto__3;}
+})())) {
+write_letter(squint_core.nth(squint_core.deref(board_state), squint_core.deref(counter)), key);
+return squint_core.swap_BANG_(counter, squint_core.inc);} else {
+if (squint_core.truth_((() => {
+const and__24178__auto__4 = (key) === ("backspace");
+if (and__24178__auto__4) {
+return (squint_core.deref(counter)) > (start1);} else {
+return and__24178__auto__4;}
+})())) {
+squint_core.swap_BANG_(counter, squint_core.dec);
+return write_letter(squint_core.nth(squint_core.deref(board_state), squint_core.deref(counter)), "");} else {
+if (squint_core.truth_((() => {
+const and__24178__auto__5 = (key) === ("enter");
+if (and__24178__auto__5) {
+return (squint_core.deref(counter)) === (end2);} else {
+return and__24178__auto__5;}
+})())) {
+if (squint_core.truth_(check_solution(squint_core.subvec(squint_core.deref(board_state), start1, end2)))) {
 alert("You won")};
-return swap_BANG_(attempt, inc);} else {
+return squint_core.swap_BANG_(attempt, squint_core.inc);} else {
 return null;}}}
 };
-if ((typeof listener !== 'undefined')) {
-null} else {
-var listener = atom(null);
-};
+var listener = squint_core.atom(null);
 var unmount = function () {
-document.removeEventListener("keydown", deref(listener));
-let app69 = document.getElementById("app");
-return app69["innerHTML"] = "";
+document.removeEventListener("keydown", squint_core.deref(listener));
+const app1 = document.getElementById("app");
+return app1.innerHTML = "";
 ;
 };
 var mount = function () {
-let app70 = document.getElementById("app");
-let board71 = make_board(30);
-let input_listener72 = function (e) {
-return user_input(e["key"].toLowerCase());
-};
-app70.appendChild(board71);
-reset_BANG_(listener, input_listener72);
-return document.addEventListener("keydown", input_listener72);
+const app1 = document.getElementById("app");
+const board2 = make_board(30);
+const input_listener3 = (function (e) {
+return user_input(e.key.toLowerCase());
+});
+app1.appendChild(board2);
+squint_core.reset_BANG_(listener, input_listener3);
+return document.addEventListener("keydown", input_listener3);
 };
 mount();
-null;
 
 export { make_cell, counter, word_of_the_day, board_state, listener, user_input, check_solution, color_cell, attempt, unmount, mount, make_board, write_letter, get_letter }

package.json

@@ -2,7 +2,7 @@
   "name": "squint-cljs",
   "type": "module",
   "sideEffects": false,
-  "version": "0.8.125",
+  "version": "0.8.126",
   "files": [
     "core.js",
     "src/squint/core.js",

src/squint/core.js

@@ -64,9 +64,10 @@ export const __protocol_satisfies = {};
 
 export function satisfies_QMARK_(protocol, x) {
   if (x == null) {
-    return __protocol_satisfies[protocol];
+    return protocol[null];
   }
-  return x[protocol];
+  if (typeof protocol == 'symbol') return x[protocol];
+  return x[protocol.__sym];
 }
 
 function mapAssocMut(m, k, v) {

src/squint/internal/protocols.cljc

@@ -35,7 +35,7 @@
                            (partition 2 (rest doc-and-opts)))
                      (into {} (partition 2 doc-and-opts)))]
     `(do
-       (def ~(with-meta p pmeta) (js/Symbol ~(str p)))
+       (def ~(with-meta p pmeta) {:__sym (js/Symbol ~(str p))})
        ~@(mapcat #(emit-protocol-method p %) methods))))
 
 (core/defn ->impl-map [impls]
@@ -85,11 +85,11 @@
   [type-sym [psym pmethods]]
   (let [flag (if (nil? type-sym)
                `(unchecked-set
-                 ~'clojure.core/__protocol_satisfies
-                 ~psym true)
+                 ~psym nil true)
                `(unchecked-set
                  (.-prototype ~type-sym)
-                 ~psym true))]
+                 (unchecked-get ~psym "__sym") true))]
+    ;; (prn :flag flag)
     `(~flag
       ~@(map #(emit-type-method psym type-sym %) pmethods))))