deque-to-list.scm (380B)
1 (define-library (sicp solutions chapter-3 exercise-23-stuff deque-to-list) 2 (import (scheme base)) 3 4 (import (sicp solutions chapter-3 exercise-23-stuff front-ptr)) 5 (import (prefix (sicp solutions chapter-3 exercise-23-stuff doubly-linked-list) dll:)) 6 7 (export deque->list) 8 9 (begin 10 (define (deque->list deque) 11 (dll:doubly-linked-list->list (front-ptr deque)))))