From e0daa840aa81d3691b22e845b68aa4be298ea264 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sun, 26 Jun 2011 03:37:31 -0600 Subject: [PATCH] macro-stepper: don't try to remove term when at end of list original commit: 3e77a1096fc2e4c508fd4d9abf3ccfff0e6d4a0f --- collects/macro-debugger/view/stepper.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/macro-debugger/view/stepper.rkt b/collects/macro-debugger/view/stepper.rkt index b028065..3d73099 100644 --- a/collects/macro-debugger/view/stepper.rkt +++ b/collects/macro-debugger/view/stepper.rkt @@ -80,9 +80,10 @@ ;; remove-current-term : -> void (define/public (remove-current-term) - (cursor:remove-current! terms) - (trim-navigator) - (refresh)) + (when (cursor:has-next? terms) + (cursor:remove-current! terms) + (trim-navigator) + (refresh))) ;; show-in-new-frame : -> void (define/public (show-in-new-frame)