clay: fix read-s subs for 413

=case was added as an argument to read-s to support %cs subs
it was accidentally removed as an argument during a merge,
breaking %cs subs by causing it to always crash in a
comparison between case and [%da now], because case resolved
to the mold rather than a value. this commit restores
intended functionality.
This commit is contained in:
bacwyls 2023-05-01 18:32:49 -05:00
parent f89baab416
commit 4a1aae5c48

View File

@ -4243,7 +4243,7 @@
:: +read-s: produce miscellaneous
::
++ read-s
|= [tak=tako pax=path]
|= [tak=tako pax=path =case]
^- (unit (unit cage))
?: ?=([%subs ~] pax)
?. =([%da now] case) ~
@ -4514,7 +4514,7 @@
%f (read-f tak path.mun)
%p [(read-p path.mun) ..park]
%r (read-r tak path.mun)
%s [(read-s tak path.mun) ..park]
%s [(read-s tak path.mun case.mun) ..park]
%t [(read-t tak path.mun) ..park]
%u [(read-u tak path.mun) ..park]
%v [(read-v tak path.mun) ..park]