"$funny-dispatcher" resolve-base-path
<text-content> ;
-[ ] [
+{ } [
<dispatcher>
<dispatcher>
<funny-dispatcher>
main-responder set
] unit-test
-[ "/a/b/" ] [
+{ "/a/b/" } [
V{ } responder-nesting set
"a/b/c" split-path main-responder get call-responder body>>
] unit-test
-[ "<input type=\"hidden\" value=\"&&&\" name=\"foo\"/>" ]
+{ "<input type=\"hidden\" value=\"&&&\" name=\"foo\"/>" }
[ "&&&" "foo" hidden-form-field xml>string ]
unit-test
-[ f ] [ <request> request [ referrer ] with-variable ] unit-test
+{ f } [ <request> request [ referrer ] with-variable ] unit-test
-[ t ] [ URL" http://foo" dup url [ same-host? ] with-variable ] unit-test
+{ t } [ URL" http://foo" dup url [ same-host? ] with-variable ] unit-test
-[ f ] [ f URL" http://foo" url [ same-host? ] with-variable ] unit-test
+{ f } [ f URL" http://foo" url [ same-host? ] with-variable ] unit-test