>>100536633
;;; btree: an example recursive Pre-Scheme record type
;; NOTE: Records are really pointers to a struct, so the recursive use
;; of btree-node below means the struct contains two pointer fields and
;; an integer. The constructor allocates and returns a pointer.
(define-record-type btree-node :btree-node
(make-btree left right value)
(left btree-node btree-left)
(right btree-node btree-right)
(value integer btree-value))
;; XXX: Records can't be created at top-level; "no evaluator for MAKE-RECORD"
;; (define bnull (make-btree null-pointer null-pointer 0))
Comment too long. Click here to view the full text.