diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-01-12 22:50:10 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-01-12 22:50:10 +0100 |
| commit | 8470b3f45b48bf627642e8f41938492be4eacf2c (patch) | |
| tree | 908780f5b34232bf27295f710fd7b3426a5ec6fe /module/ice-9/session.scm | |
| parent | 7aec4ce019555b0c7113c585fda4a7ef18b84b5a (diff) | |
| download | guile-8470b3f45b48bf627642e8f41938492be4eacf2c.tar.gz | |
fix texinfo reflection for procedures
* module/system/vm/program.scm (program-arguments-alist): Rename from
program-arguments, a name shadowed by features.c
(arglist->arguments-alist, arity->arguments-alist)
(arguments-alist->lambda-list, program-lambda-list, write-program):
Adapt callers.
* module/system/vm/frame.scm (frame-lookup-binding): Return #f if the
binding is not found, not an error.
(frame-binding-set!, frame-binding-ref): Adapt to error appropriately.
(frame-arguments): Dispatch to frame-call-representation.
(frame-call-representation): Refactor a bit.
* module/ice-9/session.scm (procedure-arguments): Adapt to
program-arguments name change.
* module/texinfo/reflection.scm (get-proc-args): Refactor to actually
work with VM procedures.
Diffstat (limited to 'module/ice-9/session.scm')
| -rw-r--r-- | module/ice-9/session.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/session.scm b/module/ice-9/session.scm index f6cad46b0..e168d3e5b 100644 --- a/module/ice-9/session.scm +++ b/module/ice-9/session.scm @@ -1,4 +1,4 @@ -;;;; Copyright (C) 1997, 2000, 2001, 2003, 2006, 2009 Free Software Foundation, Inc. +;;;; Copyright (C) 1997, 2000, 2001, 2003, 2006, 2009, 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 @@ -516,7 +516,7 @@ The alist keys that are currently defined are `required', `optional', ((procedure-source proc) => cadr) (((@ (system vm program) program?) proc) - ((@ (system vm program) program-arguments) proc)) + ((@ (system vm program) program-arguments-alist) proc)) (else #f))) |