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

comment in fix-letrec

Browse source 
* module/language/tree-il/fix-letrec.scm (simple-expression?): Add a
  small FIXME.
This commit is contained in:
Andy Wingo 2010-06-11 16:56:56 +02:00
parent d71cc612c3
commit 322a36ce9f
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/language/tree-il/fix-letrec.scm
View file

@ -47,6 +47,7 @@
((<application> proc args) ((<application> proc args)
(and (primitive-ref? proc) (and (primitive-ref? proc)
(effect-free-primitive? (primitive-ref-name proc)) (effect-free-primitive? (primitive-ref-name proc))
;; FIXME: check arity?
(and-map (lambda (x) (simple-expression? x bound-vars)) (and-map (lambda (x) (simple-expression? x bound-vars))
args))) args)))
(else #f))) (else #f)))