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 88a7d21397bc0f32506760ef340241e85820f744
parent e23ee323e1d3e4934d059135f03ac973d11f55cc
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 11 Nov 2011 09:27:18 +0100

Docs/debug improvements
Diffstat:
Mersatz/lib.l | 34++++++++++++++++++----------------
1 file changed, 18 insertions(+), 16 deletions(-)

diff --git a/ersatz/lib.l b/ersatz/lib.l @@ -1,4 +1,4 @@ -# 08nov11abu +# 11nov11abu # (c) Software Lab. Alexander Burger (setq *OS (java (java "java.lang.System" "getProperty" "os.name"))) @@ -1306,21 +1306,23 @@ # Browsing (de doc (Sym Browser) - (let (L (chop Sym) C (car L)) - (and - (member C '("*" "+")) - (cadr L) - (setq C @) ) - (cond - ((>= "Z" C "A")) - ((>= "z" C "a") (setq C (uppc C))) - (T (setq C "_")) ) - (call (or Browser (sys "BROWSER") 'w3m) - (pack - "file:" - (and (= `(char '/) (char (path "@"))) "//") - (path "@doc/ref") - C ".html#" Sym ) ) ) ) + (call (or Browser (sys "BROWSER") 'w3m) + (pack + "file:" + (and (= `(char '/) (char (path "@"))) "//") + (path "@doc/ref") + (if Sym + (let (L (chop Sym) C (car L)) + (and + (member C '("*" "+")) + (cadr L) + (setq C @) ) + (cond + ((>= "Z" C "A")) + ((>= "z" C "a") (setq C (uppc C))) + (T (setq C "_")) ) + (pack C ".html#" Sym) ) + ".html" ) ) ) ) (de more ("M" "Fun") (let *Dbg NIL