1  (define-module (llvm bitcode)
 2    #:use-module (system foreign)
 3    #:use-module (llvm utils)
 4    #:use-module (llvm types)
 5    #:use-module (llvm raw)
 6    #:use-module (llvm module)
 7    #:use-module (llvm memory-buffer))
 8  
 9  
10  (define-public (write-bitcode-to-memory-buffer module)
11    (wrap-llvm-memory-buffer
12     (LLVMWriteBitcodeToMemoryBuffer (unwrap-llvm-module module))))