diff options
author | Ludovic Courtès <ludo@gnu.org> | 2011-09-21 15:17:56 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2011-09-23 18:12:28 +0200 |
commit | ec6e09bee7bd85862dbbea8fdefb295b7cc5205f (patch) | |
tree | 73bf50ae958d2ffddf37103685defb587879d845 /module/language/tree-il/optimize.scm | |
parent | d851e32fdc3d14804108f0389faa75a57599ced4 (diff) | |
download | guile-ec6e09bee7bd85862dbbea8fdefb295b7cc5205f.tar.gz |
peval: Rectify style.
* module/language/tree-il/optimize.scm (peval): Rename `src' to
`lv-src', and `src2' to `src'; pass `make-let-values' the right source
locations. Reindent `let*'.
Diffstat (limited to 'module/language/tree-il/optimize.scm')
-rw-r--r-- | module/language/tree-il/optimize.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/module/language/tree-il/optimize.scm b/module/language/tree-il/optimize.scm index 2503e1426..0cc51a0b9 100644 --- a/module/language/tree-il/optimize.scm +++ b/module/language/tree-il/optimize.scm @@ -465,19 +465,19 @@ it does not handle <fix> and <let-values>, it should be called before (if (const? body*) body (make-fix src names gensyms vals body)))) - (($ <let-values> src producer - ($ <lambda-case> src2 req #f #f #f () gensyms body #f)) + (($ <let-values> lv-src producer + ($ <lambda-case> src req #f #f #f () gensyms body #f)) ;; Peval both producer and consumer, then try to inline. If ;; that succeeds, peval again. (let* ((producer (maybe-unconst producer (loop producer env calls))) - (body (maybe-unconst body (loop body env calls)))) + (body (maybe-unconst body (loop body env calls)))) (cond - ((inline-values producer src2 req gensyms body) + ((inline-values producer src req gensyms body) => (lambda (exp) (loop exp env calls))) (else - (make-let-values - src producer - (make-lambda-case src2 req #f #f #f '() gensyms body #f)))))) + (make-let-values lv-src producer + (make-lambda-case src req #f #f #f '() + gensyms body #f)))))) (($ <let-values>) exp) (($ <dynwind> src winder body unwinder) |