picolisp

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

Docs/debug improvements
Diffstat:
M
ersatz/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