From af1c6e424ffb7f37391fc62d788591adc40381e1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 13 Sep 2011 23:30:22 +0200 Subject: [PATCH] peval: Clarify `pure-expression?'. * module/language/tree-il/optimize.scm (peval)[pure-expression?]: Clarify the comment. --- module/language/tree-il/optimize.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/module/language/tree-il/optimize.scm b/module/language/tree-il/optimize.scm index 552578410..09f4e5d8c 100644 --- a/module/language/tree-il/optimize.scm +++ b/module/language/tree-il/optimize.scm @@ -99,8 +99,9 @@ it should be called before `fix-letrec'." (define (pure-expression? x) ;; Return true if X is pure---i.e., if it is known to have no - ;; effects and does not allocate new storage. Note: is - ;; not "pure" because it loads a module as a side-effect. + ;; effects and does not allocate storage for a mutable object. + ;; Note: is not "pure" because it loads a module as a + ;; side-effect. (let loop ((x x)) (match x (($ ) #t)