HS Bucket F: fix hs-make-object _order + assert= for dicts (+1 test)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 20s

hs-make-object no longer appends _order to every HS object literal.
Generator emit_eval now uses assert-equal (equal?) for dict-containing
expected values instead of assert= (= reference equality).
Together these fix arrayLiteral "arrays containing objects work".

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
2026-04-26 15:22:26 +00:00
parent 11917f1bfa
commit daea280837
4 changed files with 15 additions and 30 deletions

View File

@@ -2097,20 +2097,11 @@
(fn
(pairs)
(let
((d {}) (order (list)))
(do
((d (dict)))
(begin
(for-each
(fn
(pair)
(let
((k (first pair)))
(do
(when
(not (dict-has? d k))
(set! order (append order (list k))))
(dict-set! d k (nth pair 1)))))
(fn (pair) (dict-set! d (first pair) (nth pair 1)))
pairs)
(when (not (empty? order)) (dict-set! d "_order" order))
d))))
(define