1 USING: accessors alien.c-types alien.syntax destructors kernel
2 llvm.core llvm.engine llvm.jit llvm.wrappers ;
6 : buffer>module ( buffer -- module )
8 value>> f <void*> f <void*>
9 [ LLVMParseBitcode drop ] 2keep
10 *void* [ llvm-throw ] when* *void*
11 module new swap >>value
14 : load-module ( path -- module )
15 <buffer> buffer>module ;
17 : load-into-jit ( path name -- )
18 [ load-module ] dip add-module ;