(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)))))