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

fix negative DECIMAL w/ fraction on mysql

Browse Source
This commit is contained in:
Ryan Culpepper 2013-12-28 00:06:44 -05:00
parent 1b2e5bdfc9
commit 464811eae8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/db-pkgs/db-lib/db/private/mysql/message.rkt
View File

@ -749,10 +749,11 @@ computed string on the server can be. See also:
;; big integer
=> (lambda (m)
(string->number s))]
[(regexp-match #rx"^-?([0-9]*)\\.([0-9]*)$" s)
[(regexp-match #rx"^(-)?([0-9]*)\\.([0-9]*)$" s)
=> (lambda (m)
(+ (string->number (cadr m))
(parse-exact-fraction (caddr m))))]
(* (if (cadr m) -1 1)
(+ (string->number (caddr m))
(parse-exact-fraction (cadddr m)))))]
[else
(error/internal* 'parse-decimal "cannot parse as decimal"
'("string" value) s)]))