summaryrefslogtreecommitdiff
path: root/module/language/tree-il/optimize.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-09-26 22:24:00 +0200
committerAndy Wingo <wingo@pobox.com>2011-09-26 22:24:00 +0200
commitef6c0883c3467b0b4b3c3e3cfb94f2b80422d875 (patch)
tree7eada0234aa3e12266e525fc0c8620d45326dbbd /module/language/tree-il/optimize.scm
parent02ebea537fa805c615df44c4228db6a44d74c4b3 (diff)
downloadguile-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.scm11
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.