Add applicable records

Fixes #267 (closed)

lib/hoot/records.scm

@@ -100,22 +100,10 @@
      (guile-vm
       (guile:record-type-parents rtd))
      (else
-      (match (%inline-wasm
-              '(func (param $vtable (ref $vtable)) (result (ref eq))
-                     (struct.get $vtable $parents (local.get $vtable)))
-              rtd)
-        ((? vector? parentv) parentv)
-        (parent
-         (let ((grandparents (record-type-parents parent)))
-           (define parents
-             (make-vector (1+ (vector-length grandparents)) parent))
-           (vector-copy! parents 0 grandparents 0)
-           (%inline-wasm
-            '(func (param $vtable (ref $vtable)) (param $parentv (ref eq))
-                   (struct.set $vtable $parents (local.get $vtable)
-                               (local.get $parentv)))
-            rtd parents)
-           parents))))))
+      (%inline-wasm
+       '(func (param $rtd (ref $vtable)) (result (ref eq))
+              (call $record-type-parents (local.get $rtd)))
+       rtd))))
   (define-syntax define-record-type
     (lambda (stx)
       (define (acons x y z) (cons (cons x y) z))