fix |reload %a

This commit is contained in:
Ted Blackman 2019-07-31 11:51:31 -07:00
parent bdd1aaf87d
commit 0c632e8811

View File

@ -807,13 +807,10 @@
++ scry scry:adult-core ++ scry scry:adult-core
++ stay ~& %alef-larva-stay [%larva queued-events ames-state.adult-gate] ++ stay ~& %alef-larva-stay [%larva queued-events ames-state.adult-gate]
++ load ++ load
|= old-raw=* |= $= old
:: $% [%larva events=_queued-events state=_ames-state.adult-gate]
=/ old [%adult state=_ames-state.adult-gate]
;; $% [%larva events=_queued-events state=_ames-state.adult-gate] ==
[%adult state=_ames-state.adult-gate]
==
old-raw
:: ::
?- -.old ?- -.old
%adult %adult