gall: fix '%as' typo

Additionally chops out an arguably-excessive tisfas.
This commit is contained in:
Jared Tobin 2019-05-31 11:21:26 +08:00 committed by Jared Tobin
parent 5798a50c40
commit 9ddf8982cf
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4

View File

@ -1371,8 +1371,7 @@
=/ term q.u.maybe-arm =/ term q.u.maybe-arm
=/ =vase =/ =vase
=/ =path [term tyl] =/ =path [term tyl]
=/ raw (slag index path) !> (slag index path)
!> raw
(ap-slam term p.arm vase) (ap-slam term p.arm vase)
:: ::
=^ possibly-vase ap-state slammed =^ possibly-vase ap-state slammed
@ -1409,7 +1408,7 @@
=/ print (slog tank ~) =/ print (slog tank ~)
(print [~ ~]) (print [~ ~])
:: ::
?. ((sane %as) p.q.vase) ?. ((sane %tas) p.q.vase)
=/ =tank [%leaf "scry: malformed cage"] =/ =tank [%leaf "scry: malformed cage"]
=/ print (slog tank ~) =/ print (slog tank ~)
(print [~ ~]) (print [~ ~])