diff options
Diffstat (limited to 'ebus-racket/3rdparty/bzlib/base/require.ss')
| -rw-r--r-- | ebus-racket/3rdparty/bzlib/base/require.ss | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/ebus-racket/3rdparty/bzlib/base/require.ss b/ebus-racket/3rdparty/bzlib/base/require.ss new file mode 100644 index 0000000..fced045 --- /dev/null +++ b/ebus-racket/3rdparty/bzlib/base/require.ss @@ -0,0 +1,32 @@ +#lang scheme/base +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; BASE.plt - common routines that are shared by all other bzlib modules +;; +;; in a way, base.plt is the most fundamental module of the whole bzlib stack +;; and as such it also is the lowest level code. We are not likely to +;; fix the code any time soon, and hence any of the functions here are +;; explicitly likely to be obsoleted or moved elsewhere. +;; +;; Proceed with caution. +;; +;; +;; Bonzai Lab, LLC. All rights reserved. +;; +;; Licensed under LGPL. +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; require.ss - require-like syntaxes +;; yc 10/19/2009 - first version +(require (for-syntax scheme/base "syntax.ss") + ) + +(define-syntax (provide/strip-prefix stx) + (syntax-case stx () + ((~ prefix out ...) + (with-syntax (((in ...) + (syntax-map (lambda (s) + (syntax-identifier-append #'prefix s)) + #'(out ...)))) + #'(provide (rename-out (in out) ...)))))) + +(provide provide/strip-prefix) + |