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