From 9b78275eb07efab57d4e4b2e902939aa38f11884 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 8 Oct 2010 12:23:34 +0200 Subject: [PATCH] stepping traps use frame-next-source, not frame-source * module/system/vm/trap-state.scm (add-ephemeral-stepping-trap!): Use frame-next-source in stepping traps. --- module/system/vm/trap-state.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/module/system/vm/trap-state.scm b/module/system/vm/trap-state.scm index 435039aec..82d4e0ef4 100644 --- a/module/system/vm/trap-state.scm +++ b/module/system/vm/trap-state.scm @@ -275,13 +275,13 @@ (and (<= (frame-address f) fp) (predicate f)))))) - (let* ((source (frame-source frame)) + (let* ((source (frame-next-source frame)) (idx (next-ephemeral-index! trap-state)) (trap (trap-matching-instructions (wrap-predicate-according-to-into (if instruction? (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)))) (add-trap-wrapper! trap-state