diff options
| -rw-r--r-- | bs/core.scm (renamed from Alpha/Core.scm) | 2 | ||||
| -rw-r--r-- | bs/dict.scm (renamed from dict.scm) | 2 | ||||
| -rw-r--r-- | bs/logic.scm (renamed from Alpha/Logic.scm) | 2 | ||||
| -rw-r--r-- | bs/re.scm (renamed from re.scm) | 2 | ||||
| -rw-r--r-- | bs/repl.scm (renamed from Alpha/Repl.scm) | 2 | ||||
| -rw-r--r-- | bs/shell.scm (renamed from Alpha/Shell.scm) | 2 | ||||
| -rw-r--r-- | bs/string.scm (renamed from Alpha/String.scm) | 2 | ||||
| -rw-r--r-- | bs/test.scm (renamed from Alpha/Test.scm) | 4 | ||||
| -rw-r--r-- | z.scm | 8 |
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)) @@ -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 () @@ -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)) @@ -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.)) |