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

peval: Rectify style.

Browse source 
* 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*'.
This commit is contained in:
Ludovic Courtès 2011-09-21 15:17:56 +02:00
parent d851e32fdc
commit ec6e09bee7
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
module/language/tree-il/optimize.scm
View file

@ -465,19 +465,19 @@ it does not handle <fix> and <let-values>, it should be called before
(if (const? body*) (if (const? body*)
body body
(make-fix src names gensyms vals body)))) (make-fix src names gensyms vals body))))
(($ <let-values> src producer (($ <let-values> lv-src producer
($ <lambda-case> src2 req #f #f #f () gensyms body #f)) ($ <lambda-case> src req #f #f #f () gensyms body #f))
;; Peval both producer and consumer, then try to inline. If ;; Peval both producer and consumer, then try to inline. If
;; that succeeds, peval again. ;; that succeeds, peval again.
(let* ((producer (maybe-unconst producer (loop producer env calls))) (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 (cond
((inline-values producer src2 req gensyms body) ((inline-values producer src req gensyms body)
=> (lambda (exp) (loop exp env calls))) => (lambda (exp) (loop exp env calls)))
(else (else
(make-let-values (make-let-values lv-src producer
src producer (make-lambda-case src req #f #f #f '()
(make-lambda-case src2 req #f #f #f '() gensyms body #f)))))) gensyms body #f))))))
(($ <let-values>) (($ <let-values>)
exp) exp)
(($ <dynwind> src winder body unwinder) (($ <dynwind> src winder body unwinder)