(define (load-jar jar) (display jar) (newline) (define sysLoader (java.lang.ClassLoader:getSystemClassLoader)) (define urls (java.net.URLClassLoader:getURLs sysloader)) (define u (java.io.File:toURL (java.io.File:new jar))) (define sysclass (java.net.URLClassLoader:.class)) (define javaclassarray ( (java.net.URL:.class))) (define addURLstring ( "addURL")) (define method (java.lang.Class:getDeclaredMethod sysclass addURLstring javaclassarray)) (java.lang.reflect.AccessibleObject:setAccessible method #t) (java.lang.reflect.Method:invoke method sysLoader (make length: 1 u)) #t)