Fix js-interop destructuring in SCI context (#368)

and bump SCI configs.

Co-authored-by: Andrea Amantini <[email protected]>

Author: borkdude

render/deps.edn

@@ -4,7 +4,7 @@
         cider/cider-nrepl {:mvn/version "0.28.3"}
         org.babashka/sci {:mvn/version "0.6.37"}
         reagent/reagent {:mvn/version "1.1.1"}
-        io.github.babashka/sci.configs {:git/sha "b5335b79c237344d003f16358321197a0b0a2ac6"}
+        io.github.babashka/sci.configs {:git/sha "0702ea5a21ad92e6d7cca6d36de84271083ea68f"}
         io.github.nextjournal/clojure-mode {:git/sha "ac038ebf6e5da09dd2b8a31609e9ff4a65e36852"}
         metosin/reitit-frontend {:mvn/version "0.5.15"}
         thheller/shadow-cljs {:mvn/version "2.20.11"}}}

src/nextjournal/clerk/sci_env.cljs

@@ -106,6 +106,16 @@
             (sci/add-import! ctx ns sub-libname r))))
       {:handled true})))
 
+(defn ^:macro implements?* [_ _ psym x]
+  ;; hardcoded implementation of implements? for js-interop destructure which
+  ;; uses implements?
+  (case psym
+    cljs.core/ISeq (implements? ISeq x)
+    cljs.core/INamed (implements? INamed x)
+    (list 'cljs.core/instance? psym x)))
+
+(def core-ns (sci/create-ns 'clojure.core nil))
+
 (def initial-sci-opts
   {:async? true
    :load-fn load-fn
@@ -118,7 +128,8 @@
              'v 'nextjournal.clerk.viewer
              'p 'nextjournal.clerk.parser}
    :namespaces (merge {'nextjournal.clerk.viewer viewer-namespace
-                       'clojure.core {'read-string read-string}}
+                       'clojure.core {'read-string read-string
+                                      'implements? (sci/copy-var implements?* core-ns)}}
                       (sci-copy-nss
                        'nextjournal.clerk.parser
                        'nextjournal.clerk.render