mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

stepping traps use frame-next-source, not frame-source

Browse source 
* module/system/vm/trap-state.scm (add-ephemeral-stepping-trap!): Use
  frame-next-source in stepping traps.
This commit is contained in:
Andy Wingo 2010-10-08 12:23:34 +02:00
parent b262b74b51
commit 9b78275eb0
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/vm/trap-state.scm
View file

@ -275,13 +275,13 @@
(and (<= (frame-address f) fp) (and (<= (frame-address f) fp)
(predicate f)))))) (predicate f))))))
(let* ((source (frame-source frame)) (let* ((source (frame-next-source frame))
(idx (next-ephemeral-index! trap-state)) (idx (next-ephemeral-index! trap-state))
(trap (trap-matching-instructions (trap (trap-matching-instructions
(wrap-predicate-according-to-into (wrap-predicate-according-to-into
(if instruction? (if instruction?
(lambda (f) #t) (lambda (f) #t)
(lambda (f) (not (equal? (frame-source f) source))))) (lambda (f) (not (equal? (frame-next-source f) source)))))
(ephemeral-handler-for-index trap-state idx handler)))) (ephemeral-handler-for-index trap-state idx handler))))
(add-trap-wrapper! (add-trap-wrapper!
trap-state trap-state