From e6ad8129cc854dac38940acb24e3a07cd0cd7b56 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 13 May 2020 13:32:14 -0700 Subject: Re-namespace general scheme code to bs --- Alpha/Repl.scm | 17 ----------------- 1 file changed, 17 deletions(-) delete mode 100644 Alpha/Repl.scm (limited to 'Alpha/Repl.scm') 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))))) -- cgit v1.2.3