picolisp

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:
M
CHANGES
 | 
1
+
M
doc/tut.html
 | 
2
+-
M
ersatz/picolisp.jar
 | 
0

M
lib/led.l
 | 
8
++++----
M
src/vers.h
 | 
2
+-
M
src64/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