Default repl should remain using ">" for prompt

Although xrepl uses ->, the default prompt should be `>`, to
maintain compatability with old shell scripts.
This commit is contained in:
Leif Andersen 2016-07-29 23:17:26 -04:00
parent b7bd836f0f
commit 4c61013ef2

View File

@ -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)