mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

frame-call-representation has #:top-frame? as keyword argument

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2014-05-04 11:18:54 +02:00
parent 40b36bbf94
commit 18f8fd0211
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/frame.scm
View file

@ -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))

2
module/system/vm/trace.scm
View file

@ -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)))