[Qexo-general] bug in response-status() / error-response()

[Terje Pedersen]

Sending a response-status() without the optional message parameter doesn't 
work:

Example:
response-status(401)                                  (: Doesn't work :)
response-status(401,"")                              (: Working :)
response-status(401,"Some message")  (: Working :)

In HTTP.scm:

(define (response-status (code :: <int>) #!optional (message :: <String>  
#!null))
  (response-header '|Status|
                     (format (if (eq? message #!null) "~d" "~d ~a")
                             code message)))

I just added a space after ~d in the format line:
                     (format (if (eq? message #!null) "~d " "~d ~a")

Now it works.


Terje Pedersen