chickadee » record-vector » rv-like?

Procedure record-vector-like? returns true if all of attribute names in r1.alist also in r2.alist or vice versa.

 

> (define r1 (make-rv x: 1 y: 2 z: 3))
> (define r2 (make-rv x: 4 y: 2))
> (rv-like? r1 r2) => #t  ;; bc all attributes from r2 are present in r1.
> (rv-like? r2 r1) => #t  ;; still True, record-vector-like? symmetrical