(define push! (lambda (ra-stack item) (if (<= (vector-length (cells ra-stack)) ;; 1 (height ra-stack)) (error "PUSH!: attempted push onto a full stack") (begin (vector-set! (cells ra-stack) (height ra-stack) item) ;; 2 (__________)))))