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
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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user