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

Fix starts-with? crash: guard with string? check on attribute name

Browse Source 
orchestration.sx process-elements iterates DOM attributes and calls
starts-with? on the name. Some attributes have nil names (e.g. from
malformed elements). Added (string? name) guard before starts-with?.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-18 07:33:05 +00:00
parent de90cd04f2
commit f78a97960f
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
shared/static/wasm/sx/orchestration.sx
View File

@@ -1461,7 +1461,7 @@
(let (let
((name (first attr)) (body (nth attr 1))) ((name (first attr)) (body (nth attr 1)))
(when (when
(starts-with? name "sx-on:") (and (string? name) (starts-with? name "sx-on:"))
(let (let
((event-name (let ((raw (slice name 6))) (if (or (starts-with? raw "after") (starts-with? raw "before")) (str "sx:" raw) raw)))) ((event-name (let ((raw (slice name 6))) (if (or (starts-with? raw "after") (starts-with? raw "before")) (str "sx:" raw) raw))))
(when (when

4
shared/static/wasm/sx/orchestration.sxbc
View File

File diff suppressed because one or more lines are too long

2
web/orchestration.sx
View File

@@ -1461,7 +1461,7 @@
(let (let
((name (first attr)) (body (nth attr 1))) ((name (first attr)) (body (nth attr 1)))
(when (when
(starts-with? name "sx-on:") (and (string? name) (starts-with? name "sx-on:"))
(let (let
((event-name (let ((raw (slice name 6))) (if (or (starts-with? raw "after") (starts-with? raw "before")) (str "sx:" raw) raw)))) ((event-name (let ((raw (slice name 6))) (if (or (starts-with? raw "after") (starts-with? raw "before")) (str "sx:" raw) raw))))
(when (when