oops

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 65622b5d7068448f2e70d1f0fc7f122804def846..c0628be83f9d6c7f4ce753b4300fd088c98bbd86 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -37,7 +37,8 @@
 - bignums\r
 - >lower, >upper for strings\r
 - read1\r
-- telnetd and httpd should use multitasking\r
+- telnetd should use multitasking\r
+- telnetd error handling\r
 - sbuf-hashcode\r
 - vector-hashcode\r
 - irc: stack underflow?\r

diff --git a/library/httpd/httpd.factor b/library/httpd/httpd.factor
index 6e57dc3a2fd35563d53f8e05d720fe1ab7431072..f31da9fdec1e571777802a880afb14c2e3f21dde 100644 (file)
--- a/library/httpd/httpd.factor
+++ b/library/httpd/httpd.factor
@@ -103,6 +103,9 @@ USE: url-encoding
         ] in-thread drop
     ] ifte ;
 
+: quit-flag ( -- ? )
+    global [ "httpd-quit" get ] bind ;
+
 : clear-quit-flag ( -- )
     global [ "httpd-quit" off ] bind ;