front-ptr.scm (148B)
1 (define-library (sicp solutions 3_23 front-ptr) 2 (import (scheme base)) 3 (export front-ptr) 4 (begin 5 (define (front-ptr deque) (car deque))))