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
++ stay ~& %alef-larva-stay [%larva queued-events ames-state.adult-gate]
++ load
|= old-raw=*
::
=/ old
;; $% [%larva events=_queued-events state=_ames-state.adult-gate]
[%adult state=_ames-state.adult-gate]
==
old-raw
|= $= old
$% [%larva events=_queued-events state=_ames-state.adult-gate]
[%adult state=_ames-state.adult-gate]
==
::
?- -.old
%adult