mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-11 23:12:37 +00:00
parent 75b55db5f8
commit 662925356a
5 changed files with 31 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

11
module/language/gscheme/spec.scm
View file

@ -93,6 +93,17 @@
(@begin ,@(map translate body)
(_loop ,@(map translate update)))))))
(_loop ,@(map translate init))))))
((eval-case)
`(@eval-case
,@(let loop ((x rest))
(match x
(() '(()))
((('else . body)) `((@else ,@(map translate body))))
(((keys . body) . rest)
`((,keys ,@(map translate body)) ,@(loop rest)))
(else (error "bad eval-case" x))))))
(else
(let ((e (expand x)))
(if (eq? e x)