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