blob: 3bf1ca1bd99919bad9bc63b04e6f1f9cf5233409 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(define-module (bs repl)
#:use-module (system repl command))
;; (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)))))
|
