From 1327b81ec14fc81ecf086fafc2851d89346ce010 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Mon, 11 Sep 2006 01:01:54 +0000 Subject: [PATCH] Added normal form line to all sequences svn: r4300 original commit: 5b9cb7b96c0ced9dacf5827772af925df5bdb947 --- collects/macro-debugger/view/cursor.ss | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/collects/macro-debugger/view/cursor.ss b/collects/macro-debugger/view/cursor.ss index 93da8dd..bd3743e 100644 --- a/collects/macro-debugger/view/cursor.ss +++ b/collects/macro-debugger/view/cursor.ss @@ -43,15 +43,14 @@ (define set-cursor-suffix! set-cursor-suffixp!) (define (cursor:new items) - (if (pair? items) - (make-cursor null items) - ; A convenient lie - (make-cursor null (list #f)))) - + (make-cursor null items)) + (define (cursor:current c) (let ([suffix (cursor-suffix c)]) - (car suffix))) - + (if (pair? suffix) + (car suffix) + #f))) + (define (cursor:move-to-start c) (when (cursor:can-move-previous? c) (cursor:move-previous c) @@ -77,7 +76,7 @@ (set-cursor-prefix! c old-suffix-cell)))) (define (cursor:can-move-next? c) - (pair? (cdr (cursor-suffix c)))) + (pair? (cursor-suffix c))) (define (cursor:can-move-previous? c) (pair? (cursor-prefix c)))