/[guile]/guile/guile-core/scripts/lint
ViewVC logotype

Diff of /guile/guile-core/scripts/lint

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.1.2.3  
changed lines
  Added in v.1.1.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26