blob: 65eb50dcbd1eef650ea3ef1981537363f21b7a82 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(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))))
(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)))))
|
