;;; -*- Gerbil -*-
;;; Â© vyzo
;;; dynamic httpd for ensemble tutorial
(import :std/net/httpd
        :std/io)
(export run!)

(def (run! port)
  (let* ((addr (cons inaddr-any4 port))
         (httpd (start-http-server! addr)))
    (thread-join! httpd)))
