Parent Directory | Revision Log | Patch
revision 1.1.2.3 by rlb, Sat Jul 20 21:14:53 2002 UTC | revision 1.1.2.4 by rlb, Sat Jul 20 21:44:24 2002 UTC | |
---|---|---|
# | Line 287 exec ${GUILE-guile} -l $0 -c "(apply $ma | Line 287 exec ${GUILE-guile} -l $0 -c "(apply $ma |
287 | (map (lambda (case) | (map (lambda (case) |
288 | (detect-free-variables (cdr case) locals)) | (detect-free-variables (cdr case) locals)) |
289 | (cddr x)))) | (cddr x)))) |
290 | ||
291 | ((unquote unquote-splicing else =>) | ((unquote unquote-splicing else =>) |
292 | (detect-free-variables-noncar (cdr x) locals)) | (detect-free-variables-noncar (cdr x) locals)) |
293 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |