Commits

Anonymous committed 32e6bdc

Get rid of now unnecessary lazy-null

  • Participants
  • Parent commits 8a5bcc2

Comments (0)

Files changed (1)

 
 (lazy-seq make-lazy-seq
  lazy-seq? lazy-seq-realized?
- lazy-null lazy-null? realized-lazy-seq
+ lazy-null? realized-lazy-seq
  lazy-seq->list list->lazy-seq
  lazy-head lazy-tail lazy-append
  lazy-take lazy-drop lazy-ref
 (define (lazy-seq-realized? seq)
   (not (lazy-seq-body seq)))
 
-(define lazy-null
-  (%make-lazy-seq #f '()))
-
 (define (lazy-null? seq)
   (null? (realized-lazy-seq seq)))
 
 
 (define (list->lazy-seq list)
   (if (null? list)
-      lazy-null
+      (%make-lazy-seq #f '())
       (%make-lazy-seq
        #f (cons (car list)
                 (list->lazy-seq (cdr list))))))