suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

string->number is the worst

Browse Source 
svn: r1932
This commit is contained in:
Jay McCarthy 2006-01-23 15:14:39 +00:00
parent 759365481a
commit 30b48f9b68
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/web-server/servlet-tables.ss
View File

@ -140,10 +140,16 @@
#f #f
(match (match-url-params (first k-params)) (match (match-url-params (first k-params))
[(list s instance k-id salt) [(list s instance k-id salt)
(list (string->symbol instance) (let ([k-id/n (string->number k-id)]
(string->number k-id) [salt/n (string->number salt)])
(string->number salt))])))) (if (and (number? k-id/n)
(number? salt/n))
(list (string->symbol instance)
k-id/n
salt/n)
; XXX: Maybe log this in some way?
#f))]))))
;; insert-param: url string -> string ;; insert-param: url string -> string
;; add a path/param to the path in a url ;; add a path/param to the path in a url
;; (assumes that there is only one path/param) ;; (assumes that there is only one path/param)