summaryrefslogtreecommitdiff
path: root/module/system/vm/program.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/vm/program.scm')
-rw-r--r--module/system/vm/program.scm7
1 files changed, 3 insertions, 4 deletions
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 9db4a754b..99021ed05 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -1,6 +1,6 @@
;;; Guile VM program functions
-;;; Copyright (C) 2001 Free Software Foundation, Inc.
+;;; Copyright (C) 2001, 2009 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
@@ -31,16 +31,15 @@
program-properties program-property program-documentation
program-name program-arguments
- program-arity program-external-set! program-meta
+ program-arity program-meta
program-objcode program? program-objects
- program-module program-base program-external))
+ program-module program-base program-free-vars))
(load-extension "libguile" "scm_init_programs")
(define arity:nargs car)
(define arity:nrest cadr)
(define arity:nlocs caddr)
-(define arity:nexts cadddr)
(define (make-binding name extp index start end)
(list name extp index start end))