
(provide (quote elib-node))

(defmacro elib-node-create (left right data) (byte-code "Ã	
F‡" [left right data vector] 4))

(defmacro elib-node-left (node) (byte-code "ÁÂE‡" [node aref 0] 3))

(defmacro elib-node-right (node) (byte-code "ÁÂE‡" [node aref 1] 3))

(defmacro elib-node-data (node) (byte-code "ÁÂE‡" [node aref 2] 3))

(defmacro elib-node-set-left (node newleft) (byte-code "ÂÃ	F‡" [node newleft aset 0] 4))

(defmacro elib-node-set-right (node newright) (byte-code "ÂÃ	F‡" [node newright aset 1] 4))

(defmacro elib-node-set-data (node newdata) (byte-code "ÂÃ	F‡" [node newdata aset 2] 4))

(defmacro elib-node-branch (node branch) (byte-code "Â	E‡" [node branch aref] 3))

(defmacro elib-node-set-branch (node branch newval) (byte-code "Ã	
F‡" [node branch newval aset] 4))
