diff options
author | Andy Wingo <wingo@pobox.com> | 2010-10-06 21:17:06 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-10-06 21:17:06 +0200 |
commit | e8e4e7310c7c3964e4a6c19f154c3b341974eac7 (patch) | |
tree | 26bebf78b7331c2dd309edbafbabfc646c6bcb02 /module/system/vm/traps.scm | |
parent | 5f8760e467aca7bc94fe399761635ec39a7ff753 (diff) | |
download | guile-e8e4e7310c7c3964e4a6c19f154c3b341974eac7.tar.gz |
cleanups to ,finish
* module/system/repl/command.scm (repl-pop-continuation-resumer): Factor
out of finish.
(finish): Adapt.
* module/system/vm/trap-state.scm (add-ephemeral-trap-at-frame-finish!):
Rename to add "ephemeral" to the name.
* module/system/vm/traps.scm (trap-calls-to-procedure): Remove unused
#:width kwarg.
Diffstat (limited to 'module/system/vm/traps.scm')
-rw-r--r-- | module/system/vm/traps.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/vm/traps.scm b/module/system/vm/traps.scm index dfaedc584..856492904 100644 --- a/module/system/vm/traps.scm +++ b/module/system/vm/traps.scm @@ -604,7 +604,7 @@ ;; Traps calls and returns for a given procedure, keeping track of the call depth. ;; (define* (trap-calls-to-procedure proc apply-handler return-handler - #:key (width 80) (vm (the-vm))) + #:key (vm (the-vm))) (arg-check proc procedure?) (arg-check apply-handler procedure?) (arg-check return-handler procedure?) |