summaryrefslogtreecommitdiff
path: root/module/system/vm/debug.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-08 13:29:03 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-08 13:29:03 +0100
commitf41accb9c26e3b4df4170bda04b8860ee962657f (patch)
treed97ec5b5d0ae7fd616b5cf301c5046d06dccd609 /module/system/vm/debug.scm
parentd547e1c9a647c8218bdf64b00e8c11af1f7d5a0a (diff)
downloadguile-f41accb9c26e3b4df4170bda04b8860ee962657f.tar.gz
Fix procedure-arguments on RTL programs, and tweak session.test
* module/ice-9/session.scm (procedure-arguments): Add an rtl-program? case. * module/system/vm/debug.scm (arity-arguments-alist): Use the order that session.test expects. * test-suite/tests/session.test ("procedure-arguments"): Adapt tests with keywords for the new starting-with-the-procedure numbering of locals.
Diffstat (limited to 'module/system/vm/debug.scm')
-rw-r--r--module/system/vm/debug.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/vm/debug.scm b/module/system/vm/debug.scm
index 561143263..09bc16113 100644
--- a/module/system/vm/debug.scm
+++ b/module/system/vm/debug.scm
@@ -340,12 +340,12 @@ section of the ELF image. Returns an ELF symbol, or @code{#f}."
(and (not (is-case-lambda? flags))
`((required . ,(load-symbols 0 nreq))
(optional . ,(load-symbols nreq nopt))
- (rest . ,(and (has-rest? flags) (load-symbol (+ nreq nopt))))
(keyword . ,(if (has-keyword-args? flags)
(load-non-immediate
(+ nreq nopt (if (has-rest? flags) 1 0)))
'()))
- (allow-other-keys? . ,(allow-other-keys? flags))))))
+ (allow-other-keys? . ,(allow-other-keys? flags))
+ (rest . ,(and (has-rest? flags) (load-symbol (+ nreq nopt))))))))
(define (find-first-arity context base addr)
(let* ((bv (elf-bytes (debug-context-elf context)))