mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

fix tree-il->scheme test

Browse source 
* module/language/tree-il.scm (tree-il->scheme): Fix incorporation of
  `lambda' in a `case-lambda'.

* test-suite/tests/tree-il.test ("tree-il->scheme"): Add a test.
This commit is contained in:
Andy Wingo 2011-08-04 19:23:49 +02:00
parent 2b582a285a
commit 335c8a89a2
2 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il.scm
View file

@ -383,7 +383,7 @@
(case (car alt-expansion)
((lambda)
`(case-lambda (,formals ,(tree-il->scheme body))
,@(cdr alt-expansion)))
,(cdr alt-expansion)))
((lambda*)
`(case-lambda* (,formals ,(tree-il->scheme body))
,(cdr alt-expansion)))