FM / vm

/usr/share/guile/2.0/system/vm

Name	Size	Mode	Actions
coverage.scm	15640	0644	edit dl rm
frame.scm	6147	0644	edit dl rm
inspect.scm	6119	0644	edit dl rm
instruction.scm	1166	0644	edit dl rm
objcode.scm	1141	0644	edit dl rm
program.scm	11032	0644	edit dl rm
trace.scm	5476	0644	edit dl rm
trap-state.scm	10373	0644	edit dl rm
traps.scm	23226	0644	edit dl rm
vm.scm	1355	0644	edit dl rm

Edit: /usr/share/guile/2.0/system/vm/objcode.scm (1141B)

;;; 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
;;; 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, MA 02110-1301 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 ;; 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, MA 02110-1301 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")