Added normal form line to all sequences
svn: r4300 original commit: 5b9cb7b96c0ced9dacf5827772af925df5bdb947
This commit is contained in:
parent
902f2c146a
commit
1327b81ec1
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user