mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-01 09:50:19 +02:00
Code Activity

peval: Clarify `pure-expression?'.

Browse source 
* module/language/tree-il/optimize.scm (peval)[pure-expression?]:
  Clarify the comment.
This commit is contained in:
Ludovic Courtès 2011-09-13 23:30:22 +02:00
parent 735249513a
commit af1c6e424f
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -99,8 +99,9 @@ it should be called before `fix-letrec'."
(define (pure-expression? x) (define (pure-expression? x)
;; Return true if X is pure---i.e., if it is known to have no ;; Return true if X is pure---i.e., if it is known to have no
;; effects and does not allocate new storage. Note: <module-ref> is ;; effects and does not allocate storage for a mutable object.
;; not "pure" because it loads a module as a side-effect. ;; Note: <module-ref> is not "pure" because it loads a module as a
;; side-effect.
(let loop ((x x)) (let loop ((x x))
(match x (match x
(($ <void>) #t) (($ <void>) #t)