http: Interpret id and nr request-parameters as numbers.

* src/cuirass/http.scm (request-parameters): Interpret id and nr parameters as
numbers.

src/cuirass/http.scm

@@ -83,7 +83,11 @@
          (map (lambda (param)
                 (match (string-split param #\=)
                   ((key param)
-                   (list (string->symbol key) param))))
+                   (let ((key-symbol (string->symbol key)))
+                     (list key-symbol ((match key-symbol
+                                        ('id string->number)
+                                        ('nr string->number)
+                                        (_ const)) param))))))
               (string-split query #\&)))))