diff options
| author | Ben Sima <ben@bsima.me> | 2020-05-13 13:32:14 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-05-13 13:32:14 -0700 |
| commit | e6ad8129cc854dac38940acb24e3a07cd0cd7b56 (patch) | |
| tree | dfadd90e9039184e3d1415cdcddfcd39108e9d5c /Alpha/Repl.scm | |
| parent | 5fc1cc6602ac03d05ce004d8d4d9c712242f318b (diff) | |
Re-namespace general scheme code to bs
Diffstat (limited to 'Alpha/Repl.scm')
| -rw-r--r-- | Alpha/Repl.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/Alpha/Repl.scm b/Alpha/Repl.scm deleted file mode 100644 index f3f7898..0000000 --- a/Alpha/Repl.scm +++ /dev/null @@ -1,17 +0,0 @@ -(define-module (Alpha Repl)) -;; (use-modules (system repl common)) -;; (repl-default-option-set! -;; 'prompt -;; (lambda (repl) -;; (format #f "\n[~a@~a:~a]\nλ> " -;; (getenv "USER") -;; (vector-ref (uname) 1) -;; (pwd)))) - -;; TODO(bsima): (doc x) - -(eval-when (compile load eval) - (define-meta-command ((src nala) repl (form)) - "Print source code of specified Scheme procedure." - (call-with-values (repl-prepare-eval-thunk repl (repl-parse repl form)) - (lambda args (for-each print-src args))))) |