archives active order in +add-order

This commit is contained in:
Joe Bryan 2018-06-23 23:27:43 -04:00
parent dcf947712f
commit 92d27238c1

View File

@ -1775,7 +1775,7 @@
:: XX or re-use order-id?
=? fal.hit ?=(^ rod) [u.rod fal.hit]
:: XX check registration, defer
new-order:effect(pen `(sy dom))
new-order:effect(rod ~, pen `(sy dom))
::
++ test
=, tester:tester