swank-picolisp

commit 89076684faab07f9285a51b247e253ce094c560d
parent 8d9d4598ab5b8e01b199929eae9521ee6c21fd68
Author: Tomas Hlavaty <tom@logand.com>
Date:   Fri, 29 Apr 2011 00:32:03 +0200

include line number in *Swank:autodoc-built-in

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

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/swank-picolisp.l b/swank-picolisp.l
@@ -103,17 +103,17 @@
       (in (list "sh"
              "-c"
              (pack
-                "grep '# (' "
+                "grep -n '# (' "
                 (path "@")
-                "/src64"
+                "src64"
                 "/*.l | grep -v '# (c)'" ) )
          (use (@A @B)
             (until (eof)
                ## /home/tomas/git/picolisp/src64/sym.l:# (fold 'any ['cnt]) -> sym
-               (when (match '(@A ":" "#" " " "(" @B " " @C) (line))
+               (when (match '(@F ":" @N ":" "#" " " "(" @A " " @Z) (line))
                   ## TODO multiple lines, e.g.'for'
                   (push '*Swank:autodoc-built-in
-                     (list (pack @B) (pack @C) (pack @A)) ) ) ) ) ) )
+                     (list (pack @A) (pack @Z) (pack @F) (format (pack @N))) ) ) ) ) ) )
    (let? X (cadr (assoc Nm *Swank:autodoc-built-in))
       (pack "(" X) ) )