(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define scheme/char-impl#char::zero (char->integer '#\0))
  (define scheme/char-impl#digit-value
    (lambda (_char398_)
      (if (char-numeric? _char398_)
          (fx- (char->integer _char398_) scheme/char-impl#char::zero)
          '#f))))
