leonoel

{:paths ["."]
 :deps {injure {:mvn/version "1"}}}

leonoel

{:paths ["."]
 :deps {missionary {:mvn/version "a.3"}}}

leonoel

(ns asyncawait
  (:refer-clojure :exclude [await])
  (:require [cloroutine.core :refer [cr]]))

(defmacro async [& body]
  `(js/Promise. (fn [s# f#]
                  (spawn (cr {await thunk}
                           (try (s# (do ~@body))
                                (catch :default e# (f# e#))))))))

leonoel

(import (clojure.asm Type ClassWriter Opcodes)
        (clojure.asm.commons Method GeneratorAdapter)
        (clojure.lang DynamicClassLoader Compiler$HostExpr))

(require '[clojure.string :as s])

(defn- struct-bytecode [cname slots]
  (let [objtype (Type/getType ^Class Object)
        cv (new ClassWriter (. ClassWriter COMPUTE_MAXS))]
    (. cv (visit (. Opcodes V1_5) (+ (. Opcodes ACC_PUBLIC) (. Opcodes ACC_FINAL))