summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/tree-il/primitives.scm20
1 files changed, 0 insertions, 20 deletions
diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm
index e9fd0e968..f140eeca2 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -491,26 +491,6 @@
(define-primitive-expander f64vector-set! (vec i x)
(bytevector-ieee-double-native-set! vec (* i 8) x))
-(define (chained-comparison-expander prim-name)
- (case-lambda
- ((src) (make-const src #t))
- ((src a) #f)
- ((src a b) #f)
- ((src a b . rest)
- (make-conditional src
- (make-application src
- (make-primitive-ref src prim-name)
- (list a b))
- (make-application src
- (make-primitive-ref src prim-name)
- (cons b rest))
- (make-const src #f)))))
-
-(for-each (lambda (prim-name)
- (hashq-set! *primitive-expand-table* prim-name
- (chained-comparison-expander prim-name)))
- '(< > <= >= =))
-
;; Appropriate for use with either 'eqv?' or 'equal?'.
(define maybe-simplify-to-eq
(case-lambda