From e7d9245a18e20abe501aaf9bd52a997be35d4ee3 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 4 Oct 2006 19:14:59 +0000 Subject: [PATCH] set show-all-prompts to #t by default svn: r4481 --- collects/readline/doc.txt | 13 ++++++++----- collects/readline/pread.ss | 2 +- 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/collects/readline/doc.txt b/collects/readline/doc.txt index d610d05148..5aea7cc1b1 100644 --- a/collects/readline/doc.txt +++ b/collects/readline/doc.txt @@ -35,13 +35,16 @@ The reading facility that the new input port provides can be customized with these parameters: > show-all-prompts - If #f (the default), no prompt is shown until you write input that - is completely readable. For example, when you type + If #f, no prompt is shown until you write input that is completely + readable. For example, when you type (foo bar) (+ 1 2) - you will see a single prompt in the beginning. If this parameter is - set to #t, you will see the second prompt when reading the second - expression. + you will see a single prompt in the beginning. + + The problem is that the first expression can be `(read-line)' which + normally consumes the rest of the text on the *same* line. The + default value of this parameter is therefore #t, making it mimic + plain I/O interactions. > max-history The number of history entries to save. Defaults to 100. diff --git a/collects/readline/pread.ss b/collects/readline/pread.ss index 173bac6476..263b7346c5 100644 --- a/collects/readline/pread.ss +++ b/collects/readline/pread.ss @@ -2,7 +2,7 @@ (require (lib "readline.ss" "readline") (lib "file.ss")) ;; configuration - (define show-all-prompts (make-parameter #f)) + (define show-all-prompts (make-parameter #t)) (define max-history (make-parameter 100)) (define keep-duplicates (make-parameter #f)) (define keep-blanks (make-parameter #f))