learning-sicp

My embarrassing half assed SICP run.
Log | Files | Refs

empty-deque.scm (260B)

      1 (define-library (sicp solutions 3_23 empty-deque)
      2   (import (scheme base))
      3 
      4   (import (sicp solutions 3_23 front-ptr))
      5 
      6   (export empty-deque?)
      7 
      8   (begin
      9     (define (empty-deque? deque)
     10       "Returns #t if empty, else #f."
     11       (null? (front-ptr deque)))))