picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit 5ce3831ab8e8e01a2cf445646a1441ee32ccaf55
parent 9209e1ff4b005089e65bbe7b2295948b107a8b0d
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 14 Apr 2011 14:32:24 +0200

Changed "@.picoHistory" to ".pilHistory"
Diffstat:
MCHANGES | 1+
Mdoc/tut.html | 2+-
Mersatz/picolisp.jar | 0
Mlib/led.l | 8++++----
Msrc/vers.h | 2+-
Msrc64/version.l | 4++--
6 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/CHANGES b/CHANGES @@ -1,4 +1,5 @@ * XXjun11 picoLisp-3.0.7 + Changed "@.picoHistory" to ".pilHistory" * 29mar11 picoLisp-3.0.6 Bug in 'poll' (64-bit) diff --git a/doc/tut.html b/doc/tut.html @@ -186,7 +186,7 @@ expression when the cursor is at a left parenthesis. <li>Lines shorter than 3 characters, lines beginning with a space character, or duplicate lines are not entered into the history. -<li>The history is stored in a file named ".picoHistory" in the PicoLisp home +<li>The history is stored in a file named ".pilHistory" in the current working directory. The length of the history is limited to 1000 lines. </ul> diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar Binary files differ. diff --git a/lib/led.l b/lib/led.l @@ -1,4 +1,4 @@ -# 18jan11abu +# 14apr11abu # (c) Software Lab. Alexander Burger # Line editor @@ -23,7 +23,7 @@ "HistMax" 1000 # History limit "History" # History of input lines - (in "+@.picoHistory" + (in "+.pilHistory" (ctl NIL (make (until (eof) (link (line T)))) ) ) "Hist0" "History" ) @@ -401,10 +401,10 @@ (pack "Line") ) ) (de saveHistory () - (in "+@.picoHistory" + (in "+.pilHistory" (ctl T (let (Old (make (until (eof) (link (line T)))) New "History" N "HistMax") - (out "@.picoHistory" + (out ".pilHistory" (while (and New (n== New "Hist0")) (prinl (pop 'New)) (dec 'N) ) diff --git a/src/vers.h b/src/vers.h @@ -1 +1 @@ -static byte Version[4] = {3,0,6,1}; +static byte Version[4] = {3,0,6,2}; diff --git a/src64/version.l b/src64/version.l @@ -1,6 +1,6 @@ -# 29mar11abu +# 14apr11abu # (c) Software Lab. Alexander Burger -(de *Version 3 0 6 1) +(de *Version 3 0 6 2) # vi:et:ts=3:sw=3