;;; Guile VM object code

  Copyright ( C ) 2001 , 2010 Free Software Foundation , Inc.

;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public
  License as published by the Free Software Foundation ; either
  version 3 of the License , or ( at your option ) any later version .
;;;
;;; This library is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;; Lesser General Public License for more details.
;;;
  You should have received a copy of the GNU Lesser General Public
;;; License along with this library; if not, write to the Free Software
  Foundation , Inc. , 51 Franklin Street , Fifth Floor , Boston ,     USA

;;; Code:

(define-module (system vm objcode)
  #:export (objcode? objcode-meta
            bytecode->objcode objcode->bytecode
            load-objcode write-objcode
            word-size byte-order))

(load-extension (string-append "libguile-" (effective-version))
                "scm_init_objcodes")

 Guile VM object code
 This library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
 either

 This library is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 Lesser General Public License for more details.

 License along with this library; if not, write to the Free Software
 Code:

  Copyright ( C ) 2001 , 2010 Free Software Foundation , Inc.

  version 3 of the License , or ( at your option ) any later version .
  You should have received a copy of the GNU Lesser General Public
  Foundation , Inc. , 51 Franklin Street , Fifth Floor , Boston ,     USA


(define-module (system vm objcode)
  #:export (objcode? objcode-meta
            bytecode->objcode objcode->bytecode
            load-objcode write-objcode
            word-size byte-order))

(load-extension (string-append "libguile-" (effective-version))
                "scm_init_objcodes")
