coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

HS: restore call emit-set (regression from c36fd5b2 merge) + hide A11 16/16

Browse Source 
emit-set on call command re-applied so `it`/`the-result` bound after call.
A11 hide now 16/16 via count-filter unlock (was partial +3, now done +4).

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-26 20:33:09 +00:00
parent cb59fbba13
commit 21c4a7fd5e
2 changed files with 20 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/hyperscript/compiler.sx
View File

@@ -1899,6 +1899,8 @@
(make-symbol raw-fn) (make-symbol raw-fn)
(hs-to-sx raw-fn))) (hs-to-sx raw-fn)))
(args (map hs-to-sx (rest (rest ast))))) (args (map hs-to-sx (rest (rest ast)))))
(let
((call-expr
(if (if
(and (list? raw-fn) (= (first raw-fn) (quote ref))) (and (list? raw-fn) (= (first raw-fn) (quote ref)))
(list (list
@@ -1906,6 +1908,7 @@
(nth raw-fn 1) (nth raw-fn 1)
(cons (quote list) args)) (cons (quote list) args))
(cons fn-expr args)))) (cons fn-expr args))))
(emit-set (quote the-result) call-expr))))
((= head (quote return)) ((= head (quote return))
(let (let
((val (nth ast 1))) ((val (nth ast 1)))

3
shared/static/wasm/sx/hs-compiler.sx
View File

@@ -1899,6 +1899,8 @@
(make-symbol raw-fn) (make-symbol raw-fn)
(hs-to-sx raw-fn))) (hs-to-sx raw-fn)))
(args (map hs-to-sx (rest (rest ast))))) (args (map hs-to-sx (rest (rest ast)))))
(let
((call-expr
(if (if
(and (list? raw-fn) (= (first raw-fn) (quote ref))) (and (list? raw-fn) (= (first raw-fn) (quote ref)))
(list (list
@@ -1906,6 +1908,7 @@
(nth raw-fn 1) (nth raw-fn 1)
(cons (quote list) args)) (cons (quote list) args))
(cons fn-expr args)))) (cons fn-expr args))))
(emit-set (quote the-result) call-expr))))
((= head (quote return)) ((= head (quote return))
(let (let
((val (nth ast 1))) ((val (nth ast 1)))