diff options
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))))) |