macro-stepper: don't try to remove term when at end of list

original commit: 3e77a1096fc2e4c508fd4d9abf3ccfff0e6d4a0f
This commit is contained in:
Ryan Culpepper 2011-06-26 03:37:31 -06:00
parent ae8282f5c7
commit e0daa840aa

View File

@ -80,9 +80,10 @@
;; remove-current-term : -> void ;; remove-current-term : -> void
(define/public (remove-current-term) (define/public (remove-current-term)
(cursor:remove-current! terms) (when (cursor:has-next? terms)
(trim-navigator) (cursor:remove-current! terms)
(refresh)) (trim-navigator)
(refresh)))
;; show-in-new-frame : -> void ;; show-in-new-frame : -> void
(define/public (show-in-new-frame) (define/public (show-in-new-frame)