Pattern extraction and Wildcard expansion

[DaVinci <bombadil@wanadoo.es>]

 Hi again :)

 I have the function:


 nl = {
 }
 fn s pat {
         lis = `{for (dir = $path) ls $dir}
	 a = <={~~ $lis $pat}
	 echo $a^$nl
 }

 and try to execute:

 	; s l*

 Mi intention is to get a list of commands that begin with "l", but there is
 no output.

 Where is my error?

 Thanks.

 							David