peval: Truncate multiple values when extending the environment.
authorLudovic Courtès <ludo@gnu.org>
Tue, 6 Dec 2011 20:36:49 +0000 (21:36 +0100)
committerLudovic Courtès <ludo@gnu.org>
Tue, 6 Dec 2011 20:36:49 +0000 (21:36 +0100)
commitbcec8858a8968a955ac2febe36e5a4657e6054f6
tree7cdcfdd8712be6e0676c62117a907f8295122ff1
parent679eea4f0ef7720e0ed3c9ba3fddedf35d1501d6
peval: Truncate multiple values when extending the environment.

Reported by Cédric Cellier <rixed@happyleptic.org>.

* module/language/tree-il/peval.scm (truncate-values): New procedure.
  (make-operand): Call `truncate-values' SOURCE.

* test-suite/tests/tree-il.test ("partial evaluation"): New tests for
  multiple value truncation.
module/language/tree-il/peval.scm
test-suite/tests/tree-il.test