Added normal form line to all sequences

svn: r4300

original commit: 5b9cb7b96c0ced9dacf5827772af925df5bdb947
This commit is contained in:
Ryan Culpepper 2006-09-11 01:01:54 +00:00
parent 902f2c146a
commit 1327b81ec1

View File

@ -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)))