mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

(system vm trap-state): add-trap-at-frame-finish!

Browse source 
* module/system/vm/traps.scm: Fix a comment.

* module/system/vm/trap-state.scm (<trap-state>): Add next-ephemeral-idx
  slot.
  (wrapper-at-index): Use eqv? instead of = to avoid type errors in user
  inputs.
  (next-ephemeral-index!, ephemeral-handler-for-index): New functions,
  allocate ephemeral trap ids for functions to be called only once.
  (add-trap-at-frame-finish!): New export, traps when a frame finishes.
This commit is contained in:
Andy Wingo 2010-10-05 21:53:29 +02:00
parent 6a4a1ef0f4
commit df067433a5
2 changed files with 34 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -268,7 +268,7 @@
range))
;; Building on trap-instructions-in-procedure, we have
;; trap-instructions-in-procedure.
;; trap-at-procedure-ip-in-range.
;;
(define* (trap-at-procedure-ip-in-range proc range handler
#:key current-frame (vm (the-vm))