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/trap-state.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/trap-state.scm')
-rw-r--r-- | module/system/vm/trap-state.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/system/vm/trap-state.scm b/module/system/vm/trap-state.scm index f45f98121..1f21615ad 100644 --- a/module/system/vm/trap-state.scm +++ b/module/system/vm/trap-state.scm @@ -39,7 +39,7 @@ add-trap-at-procedure-call! add-trace-at-procedure-call! add-trap-at-source-location! - add-trap-at-frame-finish!)) + add-ephemeral-trap-at-frame-finish!)) (define %default-trap-handler (make-fluid)) @@ -239,8 +239,9 @@ (format #f "Breakpoint at ~a:~a" file user-line))))) ;; handler := frame -> nothing -(define* (add-trap-at-frame-finish! frame handler - #:optional (trap-state (the-trap-state))) +(define* (add-ephemeral-trap-at-frame-finish! frame handler + #:optional (trap-state + (the-trap-state))) (let* ((idx (next-ephemeral-index! trap-state)) (trap (trap-frame-finish frame |