Welcome to the CHICKEN Scheme pasting service

(let* ((java-path (get-environment-variable "JAVA_HOME"))
       (java-include-path (string-append java-path "/include/"))
       (libjvm-path (string-append java-path "/jre/lib/amd64/server/")))
  

  (compile ,(string-append "-L" libjvm-path) -ljvm -s ,(string-append "-I" java-include-path) jni.scm -J)
  (compile ,(string-append "-L" libjvm-path) -ljvm -s ,(string-append "-I" java-include-path) jni.import.scm))

(install-extension 'jni
  '("jni.so" "jni.import.so")
  '((version "0.1")))

(jvm-init)
(pp (java-vm))
(pp (jni-env))

(let loop ((counter 1)
	   (test-class (class java.lang.Class)))
  (jprint counter " " test-class)
  (delete-global-ref test-class)
  (loop (+ counter 1) (class java.lang.Class)))
(jvm-destroy (java-vm))