Don't remove so many arguments

This commit is contained in:
Tom Willemse 2013-08-22 21:44:19 +02:00
parent 6ee01205cc
commit 71adee4820

View file

@ -138,6 +138,6 @@ If no lexer is found fallback onto the text lexer."
(+ web.ctx.home "/" *prefix* (get h 0) "\n")))]]) (+ web.ctx.home "/" *prefix* (get h 0) "\n")))]])
(defun hypo-start [argv] (defun hypo-start [argv]
(let ((sys.argv (cdr (cdr sys.argv))) (let ((sys.argv (cdr sys.argv))
(app (web.application urls (globals)))) (app (web.application urls (globals))))
(.run app))) (.run app)))