swank-picolisp

commit 1fd4ef5340fa5e83cbff0502bb6167b4c81a4cf9
parent bb3545e59d0d175a006f758811796ebdf76df9f3
Author: Tomas Hlavaty <tom@logand.com>
Date:   Thu, 28 Apr 2011 23:56:22 +0200

compute root dir in %swank:autodoc-built-in

Diffstat:
M
swank-picolisp.l
 | 
10
++++++++--

1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/swank-picolisp.l b/swank-picolisp.l
@@ -97,8 +97,14 @@
 (de *Swank:autodoc-built-in . NIL)
 
 (de %swank:autodoc-built-in (Nm)
-   (unless *Swank:autodoc-built-in
-      (in (list "sh" "-c" "grep '# (' ~/git/picolisp/src64/*.l | grep -v '# (c)'")
+   (unless *Swank:autodoc-built-in ## TODO determine src directory?
+      (in (list "sh"
+             "-c"
+             (pack
+                "grep '# (' "
+                (path "@")
+                "/src64"
+                "/*.l | grep -v '# (c)'" ) )
          (use (@A @B)
             (until (eof)
                ## /home/tomas/git/picolisp/src64/sym.l:# (fold 'any ['cnt]) -> sym