dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix optional argument handling in `unused-variable-analysis'.

Browse source 
* module/language/tree-il/analyze.scm (unused-variable-analysis): Fix
  optional argument handling in <lambda-case>.
This commit is contained in:
Ludovic Courtès 2009-11-08 01:08:54 +01:00
commit 632e7c3200
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/tree-il/analyze.scm
View file

@ -571,9 +571,8 @@
(make-binding-info vars (cons gensym refs)
(cons src locs)))
((<lambda-case> req opt inits rest kw vars)
;; FIXME keywords.
(let ((names `(,@req
,@(map car (or opt '()))
,@(or opt '())
,@(if rest (list rest) '())
,@(if kw (map cadr (cdr kw)) '()))))
(make-binding-info (extend vars names) refs