diff --git a/lib/hyperscript/runtime.sx b/lib/hyperscript/runtime.sx index a7ef69b1..474fdc92 100644 --- a/lib/hyperscript/runtime.sx +++ b/lib/hyperscript/runtime.sx @@ -810,7 +810,8 @@ (append target (list value)))) ((hs-element? target) (do - (dom-insert-adjacent-html target "beforeend" (str value)) + (dom-insert-adjacent-html target "beforeend" + (if (hs-element? value) (host-get value "outerHTML") (str value))) target)) (true (str target value))))) (define @@ -820,7 +821,8 @@ (cond ((nil? target) nil) ((hs-element? target) - (dom-insert-adjacent-html target "beforeend" (str value))) + (dom-insert-adjacent-html target "beforeend" + (if (hs-element? value) (host-get value "outerHTML") (str value)))) (true nil))))) (define diff --git a/shared/static/wasm/sx/hs-runtime.sx b/shared/static/wasm/sx/hs-runtime.sx index a7ef69b1..474fdc92 100644 --- a/shared/static/wasm/sx/hs-runtime.sx +++ b/shared/static/wasm/sx/hs-runtime.sx @@ -810,7 +810,8 @@ (append target (list value)))) ((hs-element? target) (do - (dom-insert-adjacent-html target "beforeend" (str value)) + (dom-insert-adjacent-html target "beforeend" + (if (hs-element? value) (host-get value "outerHTML") (str value))) target)) (true (str target value))))) (define @@ -820,7 +821,8 @@ (cond ((nil? target) nil) ((hs-element? target) - (dom-insert-adjacent-html target "beforeend" (str value))) + (dom-insert-adjacent-html target "beforeend" + (if (hs-element? value) (host-get value "outerHTML") (str value)))) (true nil))))) (define