Re: Should we move/copy/symlink ice-9/srfi-8.scm to srfi/srfi-8.scm?

[Marius Vollmer]

Neil Jerram <address@hidden> writes:

> (call-with-deprecation
>   "The (ice-9 srfi-8) module is deprecated; please use (srfi srfi-8)
>   instead."
>   noop)


We really should have a more direct way of achieving this.  Like

    (define issue-deprecation-warning
      (let ((issued-warnings (make-hash-table 13)))
        (lambda (msg)
          (cond ((not (hashv-ref issued-warnings msg #f))
                 (display ";;; " (current-error-port))
                 (display msg (current-error-port))
                 (newline (current-error-port))
                 (hashv-set! issued-warnings msg #t))))))

    (define (call-with-deprecation msg thunk)
      (issue-deprecation-warning msg)
      (thunk))

And then

    (issue-deprecation-warning
      "The (ice-9 srfi-8) module is deprecated; please use (srfi srfi-8)
       instead.")