blob: fced045fc223338d75901b3c6185aa7a14f27351 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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)
|
