diff options
author | Andy Wingo <wingo@pobox.com> | 2011-09-26 22:24:00 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-09-26 22:24:00 +0200 |
commit | ef6c0883c3467b0b4b3c3e3cfb94f2b80422d875 (patch) | |
tree | 7eada0234aa3e12266e525fc0c8620d45326dbbd /module/language/tree-il/optimize.scm | |
parent | 02ebea537fa805c615df44c4228db6a44d74c4b3 (diff) | |
download | guile-ef6c0883c3467b0b4b3c3e3cfb94f2b80422d875.tar.gz |
remove unused peval helpers
* module/language/tree-il/optimize.scm (peval): Remove a couple unused
helpers.
Diffstat (limited to 'module/language/tree-il/optimize.scm')
-rw-r--r-- | module/language/tree-il/optimize.scm | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/module/language/tree-il/optimize.scm b/module/language/tree-il/optimize.scm index 1af55a130..5398c678e 100644 --- a/module/language/tree-il/optimize.scm +++ b/module/language/tree-il/optimize.scm @@ -423,9 +423,6 @@ it does not handle <fix> and <let-values>, it should be called before (make-application src (make-primitive-ref src 'values) values)))) - (define (const*? x) - (or (const? x) (lambda? x) (void? x))) - (define (constant-expression? x) ;; Return true if X is constant---i.e., if it is known to have no ;; effects, does not allocate storage for a mutable object, and does @@ -474,14 +471,6 @@ it does not handle <fix> and <let-values>, it should be called before 0 x) #t)) - (define (mutable? exp) - ;; Return #t if EXP is a mutable object. - ;; todo: add an option to assume pairs are immutable - (or (pair? exp) - (vector? exp) - (struct? exp) - (string? exp))) - (define (make-value-construction src exp) ;; Return an expression that builds a fresh copy of EXP at run-time, ;; or #f. |