Re-namespace general scheme code to bs

9 files changed, 13 insertions, 13 deletions

diff --git a/Alpha/Core.scm b/bs/core.scm
index 076ad28..d8e0060 100644
--- a/Alpha/Core.scm
+++ b/bs/core.scm
@@ -1,4 +1,4 @@
-(define-module (Alpha Core)
+(define-module (bs core)
   #:use-module ((ice-9 format))
   #:use-module ((system vm program))
   #:use-module ((ice-9 rdelim) #:select (read-line))
diff --git a/dict.scm b/bs/dict.scm
index 564b1ae..ac55ba7 100644
--- a/dict.scm
+++ b/bs/dict.scm
@@ -3,7 +3,7 @@
 ;;     (import (prefix (dict) dict/))
 ;; or
 ;;     (import (prefix (dict) dict.))
-(library (dict (2))
+(library (bs dict (2))
   (export
    empty new dict dict? keys vals contains?
    set get del update map)
diff --git a/Alpha/Logic.scm b/bs/logic.scm
index 4b160d8..1e25b1c 100644
--- a/Alpha/Logic.scm
+++ b/bs/logic.scm
@@ -1,7 +1,7 @@
 ;; my mini kanren impl - basically untested so far
 ;; TODO: https://github.com/webyrd/faster-miniKanren
 
-(define-module (Alpha Logic))
+(define-module (bs logic))
 
 (define-syntax λg
   (syntax-rules ()
diff --git a/re.scm b/bs/re.scm
index f6f4b75..6ecc074 100644
--- a/re.scm
+++ b/bs/re.scm
@@ -1,5 +1,5 @@
 #!r6rs
-(library (re (0))
+(library (bs re (0))
   (export match group)
   (import (rnrs base (6))
           (ice-9 regex))
diff --git a/Alpha/Repl.scm b/bs/repl.scm
index f3f7898..3932433 100644
--- a/Alpha/Repl.scm
+++ b/bs/repl.scm
@@ -1,4 +1,4 @@
-(define-module (Alpha Repl))
+(define-module (bs repl))
 ;; (use-modules (system repl common))
 ;; (repl-default-option-set!
 ;;  'prompt
diff --git a/Alpha/Shell.scm b/bs/shell.scm
index b00b174..8578f72 100644
--- a/Alpha/Shell.scm
+++ b/bs/shell.scm
@@ -1,4 +1,4 @@
-(define-module (Alpha Shell)
+(define-module (bs shell)
   #:use-module ((ice-9 popen) #:prefix popen/)
   #:use-module ((ice-9 rdelim) #:prefix rdelim/)
   #:use-module ((ice-9 ftw) #:prefix ftw/)
diff --git a/Alpha/String.scm b/bs/string.scm
index 6e29663..b12bf00 100644
--- a/Alpha/String.scm
+++ b/bs/string.scm
@@ -1,4 +1,4 @@
-(define-module (Alpha String)
+(define-module (bs string)
   #:export (replace replace-char to-string str capitalize split
                     strip lstrip rstrip))
 
diff --git a/Alpha/Test.scm b/bs/test.scm
index 8c0916d..9152760 100644
--- a/Alpha/Test.scm
+++ b/bs/test.scm
@@ -1,8 +1,8 @@
 ;; a testing framework for scheme
 ;; inspired by clojure.test and srfi-64
 
-(define-module (Alpha Test)
-  #:use-module ((Alpha Core)
+(define-module (bs test)
+  #:use-module ((bs core)
                 #:select (prn))
   #:export (testing))
 
diff --git a/z.scm b/z.scm
index b8bcbfe..dd091c6 100644
--- a/z.scm
+++ b/z.scm
@@ -1,13 +1,13 @@
-(import (Alpha Core))
-(import (prefix (Alpha String) string.))
+(import (bs core))
+(import (prefix (bs dict) dict.))
+(import (prefix (bs re) re.))
+(import (prefix (bs string) string.))
 (import (srfi srfi-1))
 (import (sxml simple))
 (import (oop goops))
 (import (ice-9 peg))
 (import (only (srfi srfi-19) date->string current-date))
 (import (only (ice-9 match) match match-lambda))
-(import (prefix (dict) dict.))
-(import (prefix (re) re.))
 (import (prefix (web server) http.))
 (import (prefix (web request) http.req.))
 (import (prefix (web response) http.res.))