1 files changed, 17 insertions, 0 deletions
diff --git a/bs/repl.scm b/bs/repl.scm
new file mode 100644
index 0000000..3932433
--- /dev/null
+++ b/bs/repl.scm
@@ -0,0 +1,17 @@
+(define-module (bs 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)))))