picolisp

commit 6f59e57ed2f9a00731eec7c20c33f028722633c5
parent 9897d96a0c98c3e88884ecc66c8f1b1b5cfca7c6
Author: Commit-Bot <unknown>
Date:   Wed, 23 Jun 2010 06:58:31 +0000

Automatic commit from picoLisp.tgz, From: Wed, 23 Jun 2010 06:58:31 GMT
Diffstat:
M
doc/refV.html
 | 
13
+++++++------
M
lib/debug.l
 | 
4
++--
M
src64/version.l
 | 
4
++--

3 files changed, 11 insertions(+), 10 deletions(-)
diff --git a/doc/refV.html b/doc/refV.html
@@ -101,12 +101,13 @@ $ ./p -version
 <dt><code>(vi 'sym 'cls) -> sym</code>
 <dt><code>(vi '(sym . cls)) -> sym</code>
 <dt><code>(vi) -> NIL</code>
-<dd>Opens the "vi" editor on the function or method definition of
-<code>sym</code>. A call to <code><a href="refL.html#ld">ld</a></code>
-thereafter will <code><a href="refL.html#load">load</a></code> the modified
-file. See also <code><a href="refD.html#doc">doc</a></code>, <code><a
-href="refP.html#pp">pp</a></code>, <code><a
-href="refD.html#*Dbg">*Dbg</a></code>, <code><a
+<dd>Opens the editor specified by the environment variable <code>EDITOR</code>
+(or <code>vim</code> if that variable is not set) on the function or method
+definition of <code>sym</code>. A call to <code><a
+href="refL.html#ld">ld</a></code> thereafter will <code><a
+href="refL.html#load">load</a></code> the modified file. See also <code><a
+href="refD.html#doc">doc</a></code>, <code><a href="refP.html#pp">pp</a></code>,
+<code><a href="refD.html#*Dbg">*Dbg</a></code>, <code><a
 href="refD.html#debug">debug</a></code> and <code><a
 href="refP.html#pp">pp</a></code>.
 
diff --git a/lib/debug.l b/lib/debug.l
@@ -1,4 +1,4 @@
-# 12mar10abu
+# 23jun10abu
 # (c) Software Lab. Alexander Burger
 
 # Browsing
@@ -161,7 +161,7 @@
                (get C '*Dbg -1 "X")
                (get "X" '*Dbg 1) ) )
          "*Vi" )
-      (call 'vim
+      (call (or (sys "EDITOR") 'vim)
          (pack "+" (car "*Vi"))
          (path (cdr "*Vi")) )
       "X" ) )
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 21jun10abu
+# 23jun10abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 2 33)
+(de *Version 3 0 2 34)
 
 # vi:et:ts=3:sw=3