suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Indicate repl phase level when it's not 0.

Browse Source 
(cherry picked from commit 0d642cf976)
This commit is contained in:
Eli Barzilay 2011-10-21 11:13:02 -04:00
parent e992a7f2b1
commit 3c3633cd46
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/xrepl/xrepl.rkt
View File

@ -1300,7 +1300,9 @@
(define (get-prefix)
(let* ([x (here-source)]
[x (and x (if (symbol? x) (format "'~s" x) (get-prefix* x)))]
[x (or x (toplevel-prefix))])
[x (or x (toplevel-prefix))]
[x (let ([ph (namespace-base-phase)])
(if (eq? 0 ph) x (format "~a[~a]" x ph)))])
(if (eq? (current-namespace-name) default-namespace-name)
x (format "~a::~a" (current-namespace-name) x))))
(define last-directory #f)