HomeAboutCodePastes

Paste on 2021-03-03T01:31:57

(import srfi-13 chicken.fixnum chicken.irregex)
(define orig ##sys#string->number)
(define (##sys#string->number str . rest)
  (apply orig
         ;; (string-delete #\_ str 0 (fx- (string-length str) 1))
         (irregex-replace/all "([0-9A-Z])_([0-9A-Z])" str 1 2)
         rest))

plain