fixup packed record type

1 files changed, 7 insertions, 2 deletions

diff --git a/sly/records.scm b/sly/records.scm
index 3ac2fda..ae6d182 100644
--- a/sly/records.scm
+++ b/sly/records.scm
@@ -81,8 +81,13 @@ overridden."
         ...
         (display " >" port)))
 
-    (define-inlinable (constructor field ...)
-      (box (f64vector field ...)))
+    (define constructor
+      (let ((size (length (list 'field ...))))
+        (lambda (field ...)
+          (let ((bv (make-f64vector size)))
+            (f64vector-set! bv index field)
+            ...
+            (box bv)))))
 
     (define-inlinable (getter obj)
       (f64vector-ref (unbox obj) index))