refactored ebus code

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)
+