;;; $Id: cell.def,v 1.3 1999/02/25 03:20:42 leavens Exp $

(defrep (cell T) (vector datum))

(deftype make-cell (-> (T) (cell T)))
(deftype cell? (-> (datum) boolean))
(deftype cell-ref (-> ((cell T)) T))
(deftype cell-set! (-> ((cell T) T) void))
(deftype cell-swap! (-> ((cell T) (cell T)) void))
