support fixnum-list args to SVG write

organix · Jan 22, 2025 · 5b03489 · 5b03489
1 parent 11bbe8e
commit 5b03489
Showing 1 changed file with 12 additions and 3 deletions.
diff --git a/vm/js/svg_dev.js b/vm/js/svg_dev.js
@@ -88,10 +88,19 @@ function svg_dev(core, make_ddev, on_draw) {
 
 // Write request.
 
-        if (!ufork.is_fix(code)) {
-            return ufork.E_NOT_FIX;
+        if (ufork.is_fix(code)) {
+            on_code(ufork.fix_to_i32(code));
+        } else {
+            let list = code;
+            while (code !== ufork.NIL_RAW) {
+                const first = core.u_nth(list, 1);
+                if (!ufork.is_fix(first)) {
+                    break;
+                }
+                on_code(ufork.fix_to_i32(first));
+                list = core.u_nth(list, -1);
+            }
         }
-        on_code(ufork.fix_to_i32(code));
         core.u_defer(function () {
             core.h_release_stub(event_stub_ptr);
             h_send(callback, h_reply_ok(ufork.UNDEF_RAW), sponsor);