diff options
author | Andy Wingo <wingo@pobox.com> | 2014-05-04 11:18:54 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-05-04 11:18:54 +0200 |
commit | 18f8fd0211714f4d18ebab4dc4b85950c97483f4 (patch) | |
tree | fa592921562ce2c71d2a89fe4787bdd127e3b951 | |
parent | 40b36bbf941f1670d8665b1d5d43c842b2aea561 (diff) | |
download | guile-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.scm | 2 | ||||
-rw-r--r-- | module/system/vm/trace.scm | 2 |
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))) |