fix find/replace miss

This commit is contained in:
Ted Blackman 2021-09-06 21:59:13 +03:00
parent 973ab3de11
commit 5fbaa143d5

View File

@ -9,7 +9,7 @@
|^
?- -.loc
%http (fetch-http url.loc)
%ship (fetch-ames ship.loc base)
%ames (fetch-ames ship.loc base)
==
::
++ fetch-http
@ -31,7 +31,7 @@
^- form:m
;< =bowl:spider bind:m get-bowl:strandio
;< =cage bind:m
(watch-one:strandio /glob/(scot %da now:bowl) [ship %docket] /glob/[base])
(watch-one:strandio /glob/(scot %da now.bowl) [ship %docket] /glob/[base])
?> ?=(%glob p.cage)
(pure:m q.cage)
--