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

HS: on EVENT from SRC or EVENT from SRC multi-source listener (+1 test)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled
Details

Browse Source 
Parser: limit `from SOURCE` to parse-collection/cmp/arith/poss/atom
  (stops before parse-logical so `or` is not consumed as binary op),
  then collect `or EVENT from SOURCE` pairs via recursive collect-ors!.
  Adds :or-sources key to the on-feature parts list.

Compiler: scan-on gains or-sources param (11th); new :or-sources cond
  clause extracts the list; terminal `true` branch wraps on-call in
  (do on-call (hs-on target event handler) ...) for each extra source.

Test: "can handle an or after a from clause" moved from skip-list to
  MANUAL_TEST_BODIES and now passes (1478/1496).

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
giles
2026-05-06 15:17:22 +00:00
parent 9f57234d1e
commit f1428009fd
4 changed files with 117 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
lib/hyperscript/compiler.sx
View File

@@ -221,7 +221,8 @@
having-info
of-filter-info
count-filter-info
elsewhere?)
elsewhere?
or-sources)
(cond
((<= (len items) 1)
(let
@@ -279,7 +280,27 @@
having-info
(get having-info "threshold")
nil))))
(true on-call))))))))))))
(true
(if
or-sources
(cons
(quote do)
(cons
on-call
(map
(fn
(pair)
(list
(quote hs-on)
(if
(nth pair 1)
(hs-to-sx
(nth pair 1))
(quote me))
(first pair)
handler))
or-sources)))
on-call)))))))))))))
((= (first items) :from)
(scan-on
(rest (rest items))
@@ -291,7 +312,8 @@
having-info
of-filter-info
count-filter-info
elsewhere?))
elsewhere?
or-sources))
((= (first items) :filter)
(scan-on
(rest (rest items))
@@ -303,7 +325,8 @@
having-info
of-filter-info
count-filter-info
elsewhere?))
elsewhere?
or-sources))
((= (first items) :every)
(scan-on
(rest (rest items))
@@ -315,7 +338,8 @@
having-info
of-filter-info
count-filter-info
elsewhere?))
elsewhere?
or-sources))
((= (first items) :catch)
(scan-on
(rest (rest items))
@@ -327,7 +351,8 @@
having-info
of-filter-info
count-filter-info
elsewhere?))
elsewhere?
or-sources))
((= (first items) :finally)
(scan-on
(rest (rest items))
@@ -339,7 +364,8 @@
having-info
of-filter-info
count-filter-info
elsewhere?))
elsewhere?
or-sources))
((= (first items) :having)
(scan-on
(rest (rest items))
@@ -351,7 +377,8 @@
(nth items 1)
of-filter-info
count-filter-info
elsewhere?))
elsewhere?
or-sources))
((= (first items) :of-filter)
(scan-on
(rest (rest items))
@@ -363,7 +390,8 @@
having-info
(nth items 1)
count-filter-info
elsewhere?))
elsewhere?
or-sources))
((= (first items) :count-filter)
(scan-on
(rest (rest items))
@@ -375,7 +403,8 @@
having-info
of-filter-info
(nth items 1)
elsewhere?))
elsewhere?
or-sources))
((= (first items) :elsewhere)
(scan-on
(rest (rest items))
@@ -387,6 +416,20 @@
having-info
of-filter-info
count-filter-info
(nth items 1)
or-sources))
((= (first items) :or-sources)
(scan-on
(rest (rest items))
source
filter
every?
catch-info
finally-info
having-info
of-filter-info
count-filter-info
elsewhere?
(nth items 1)))
(true
(scan-on
@@ -399,8 +442,9 @@
having-info
of-filter-info
count-filter-info
elsewhere?)))))
(scan-on (rest parts) nil nil false nil nil nil nil nil false)))))
elsewhere?
or-sources)))))
(scan-on (rest parts) nil nil false nil nil nil nil nil false nil)))))
(define
emit-send
(fn