HomeAboutCodePastes

Paste on 2021-03-03T01:16:22

(import srfi-13 chicken.fixnum)
(define orig ##sys#string->number)
(define (##sys#string->number str . rest)
  (apply orig
         (string-delete #\_ str 0 (fx- (string-length str) 1))
         rest))

plain