(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |scheme/char-impl[:0:]#char-foldcase|
    (lambda (_stx390_)
      (gx#raise-syntax-error
       '#f
       '"R7RS procedure NOT IMPLEMENTED"
       _stx390_
       'char-foldcase)))
  (define |scheme/char-impl[:0:]#string-foldcase|
    (lambda (_stx394_)
      (gx#raise-syntax-error
       '#f
       '"R7RS procedure NOT IMPLEMENTED"
       _stx394_
       'string-foldcase))))
