summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-05-04 11:18:54 +0200
committerAndy Wingo <wingo@pobox.com>2014-05-04 11:18:54 +0200
commit18f8fd0211714f4d18ebab4dc4b85950c97483f4 (patch)
treefa592921562ce2c71d2a89fe4787bdd127e3b951
parent40b36bbf941f1670d8665b1d5d43c842b2aea561 (diff)
downloadguile-18f8fd0211714f4d18ebab4dc4b85950c97483f4.tar.gz
frame-call-representation has #:top-frame? as keyword argument
* module/system/vm/frame.scm (frame-call-representation): Change top-frame? argument to be a keyword instead of an optional argument. * module/system/vm/trace.scm (print-application): Adapt caller.
-rw-r--r--module/system/vm/frame.scm2
-rw-r--r--module/system/vm/trace.scm2
2 files changed, 2 insertions, 2 deletions
diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm
index e0965ff27..239b7a6cc 100644
--- a/module/system/vm/frame.scm
+++ b/module/system/vm/frame.scm
@@ -289,7 +289,7 @@
;; the types don't match. In that case the arguments are all on the
;; stack, and nothing else is on the stack.
-(define* (frame-call-representation frame #:optional top-frame?)
+(define* (frame-call-representation frame #:key top-frame?)
(let* ((ip (frame-instruction-pointer frame))
(info (find-program-debug-info ip))
(nlocals (frame-num-locals frame))
diff --git a/module/system/vm/trace.scm b/module/system/vm/trace.scm
index 77191b7b9..36fbe92a6 100644
--- a/module/system/vm/trace.scm
+++ b/module/system/vm/trace.scm
@@ -46,7 +46,7 @@
(format (current-error-port) "~a~v:@y\n"
prefix
width
- (frame-call-representation frame))))
+ (frame-call-representation frame #:top-frame? #t))))
(define (print-return depth width prefix max-indent values)
(let ((prefix (build-prefix prefix depth "| " "~d< "max-indent)))