From 21c4a7fd5e4244fc410841954d9077e28aa35650 Mon Sep 17 00:00:00 2001 From: giles Date: Sun, 26 Apr 2026 20:33:09 +0000 Subject: [PATCH] HS: restore call emit-set (regression from c36fd5b2 merge) + hide A11 16/16 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 --- lib/hyperscript/compiler.sx | 17 ++++++++++------- shared/static/wasm/sx/hs-compiler.sx | 17 ++++++++++------- 2 files changed, 20 insertions(+), 14 deletions(-) diff --git a/lib/hyperscript/compiler.sx b/lib/hyperscript/compiler.sx index 2012ef95..cac9a430 100644 --- a/lib/hyperscript/compiler.sx +++ b/lib/hyperscript/compiler.sx @@ -1899,13 +1899,16 @@ (make-symbol raw-fn) (hs-to-sx raw-fn))) (args (map hs-to-sx (rest (rest ast))))) - (if - (and (list? raw-fn) (= (first raw-fn) (quote ref))) - (list - (quote hs-win-call) - (nth raw-fn 1) - (cons (quote list) args)) - (cons fn-expr args)))) + (let + ((call-expr + (if + (and (list? raw-fn) (= (first raw-fn) (quote ref))) + (list + (quote hs-win-call) + (nth raw-fn 1) + (cons (quote list) args)) + (cons fn-expr args)))) + (emit-set (quote the-result) call-expr)))) ((= head (quote return)) (let ((val (nth ast 1))) diff --git a/shared/static/wasm/sx/hs-compiler.sx b/shared/static/wasm/sx/hs-compiler.sx index 2012ef95..cac9a430 100644 --- a/shared/static/wasm/sx/hs-compiler.sx +++ b/shared/static/wasm/sx/hs-compiler.sx @@ -1899,13 +1899,16 @@ (make-symbol raw-fn) (hs-to-sx raw-fn))) (args (map hs-to-sx (rest (rest ast))))) - (if - (and (list? raw-fn) (= (first raw-fn) (quote ref))) - (list - (quote hs-win-call) - (nth raw-fn 1) - (cons (quote list) args)) - (cons fn-expr args)))) + (let + ((call-expr + (if + (and (list? raw-fn) (= (first raw-fn) (quote ref))) + (list + (quote hs-win-call) + (nth raw-fn 1) + (cons (quote list) args)) + (cons fn-expr args)))) + (emit-set (quote the-result) call-expr)))) ((= head (quote return)) (let ((val (nth ast 1)))