diff options
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/web-editor.folk | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/virtual-programs/web-editor.folk b/virtual-programs/web-editor.folk index fed34c3f..67953a86 100644 --- a/virtual-programs/web-editor.folk +++ b/virtual-programs/web-editor.folk @@ -94,8 +94,11 @@ Wish the web server handles route {/page/(.*)$} with handler { if (isVirtualProgram) { send(` - Retract /anyone/ claims file_name has program code /something/ - Assert web claims file_name has program code {${code}} + set oldRootVirtualPrograms $::rootVirtualPrograms + dict set ::rootVirtualPrograms file_name {${code}} + Assert $::nodename is providing root virtual programs $::rootVirtualPrograms + Retract $::nodename is providing root virtual programs $oldRootVirtualPrograms + Step `) } @@ -117,5 +120,4 @@ Wish the web server handles route {/page/(.*)$} with handler { </body> </html> }] - } } |