fixed overly eager %urb checking

This commit is contained in:
Anton Dyudin 2015-08-03 14:35:03 -07:00
parent c55d9ac147
commit bd9e281909

View File

@ -30,7 +30,7 @@
$% [%deal p=sock q=cush] :: full transmission
== == == ::
++ sign :: in result $<-
$? $: %a :: by %ames
$? $: %a :: by %aformedmes
$% [%woot p=ship q=coop] ::
== == ::
$: %b :: by %behn
@ -761,8 +761,8 @@
?+ p.cay q.cay :: inject dependency long-poll
%urb =< (slam !>(.) q.cay)
|= urb=manx
~| %malformed-urb
?> ?=([[%html ~] [[%head ~] *] [[%body ~] ^] ~] urb)
~| [%malformed-urb urb]
?> ?=([[%html ~] [[%head ~] *] [[%body ~] *] ~] urb)
(inject p.sih urb)
==
~| q.q.cay