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