truffle-in-clojure.clj

(ns morel.core
  (:import (com.oracle.truffle.api.nodes RootNode NodeInfo Node$Child))
  (:require [clojure.interop :refer [defclass]]
            [clojure.reflect :as reflect]))

(defclass
  ^{NodeInfo {:language "SL"
              :description "The root of all SL execution trees"}}
  SLRootNode [language
              frame-descriptor
              ^{Node$Child []}
              body-node
              source-selection]

  RootNode [language frame-descriptor])



(.language (first (.getDeclaredAnnotations SLRootNode)))
;; => "SL"