okuoku

(import (rnrs)
        (only (srfi :1) lset-difference)
        (srfi :8)
        (shorten)
        (yuni util files)
        (yuni text tabular))

(define (filt-r7 sexp) (filter (lambda (e) (pair? (car e))) sexp))

(define (genall dic)

okuoku

        R6LibName                            Sym                            R7LibName       
=============================================================================================
              (rnrs base)               number->string              (scheme base)           
              (rnrs base)                   error                   (scheme base)           
           (rnrs unicode)                char-upcase                (scheme char)           
           (rnrs unicode)               char-downcase               (scheme char)           
           (rnrs unicode)               char-foldcase               (scheme char)           
           (rnrs unicode)                 char-ci=?                 (scheme char)           
           (rnrs unicode)                 char-ci<?                 (scheme char)           
           (rnrs unicode)                 char-ci>?                 (scheme char)