From bc05a238ffed02f915e8809914c1bbf0b6ed7670 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sat, 4 May 2019 00:28:07 +0200 Subject: [PATCH] Added url support. --- burrow.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/burrow.scm b/burrow.scm index 557dfa0..09b8df3 100644 --- a/burrow.scm +++ b/burrow.scm @@ -145,6 +145,8 @@ (match record (('shell command) (serve-shell-command command)) (('eval expression) (serve-expression expression)) + (('url display-string url) + (print #\h display-string "\tURL:" url "\tfake\t80\r")) ((type display-string selector host port) (print type display-string "\t" selector "\t" host "\t" port "\r")) ((type display-string selector host) -- 2.20.1