From 4c61013ef2244c9a873ec03b676b7964f5f45511 Mon Sep 17 00:00:00 2001 From: Leif Andersen Date: Fri, 29 Jul 2016 23:17:26 -0400 Subject: [PATCH] Default repl should remain using ">" for prompt Although xrepl uses ->, the default prompt should be `>`, to maintain compatability with old shell scripts. --- racket/collects/racket/interactive.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/racket/collects/racket/interactive.rkt b/racket/collects/racket/interactive.rkt index bc4a675444..c705fbc1d2 100644 --- a/racket/collects/racket/interactive.rkt +++ b/racket/collects/racket/interactive.rkt @@ -1,7 +1,9 @@ #lang racket/base (when (collection-file-path "main.rkt" "xrepl" #:fail (lambda _ #f)) - (dynamic-require 'xrepl #f)) + (dynamic-require 'xrepl #f) + (define toplevel-prefix (dynamic-require 'xrepl/xrepl 'toplevel-prefix)) + (toplevel-prefix "")) (let ([init-file (cleanse-path (find-system-path 'init-file))]) (when (file-exists? init-file)