[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-175-ge6c1c
From: |
Mark H Weaver |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-175-ge6c1c5f |
Date: |
Fri, 31 Jan 2014 09:01:37 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=e6c1c5f6cb16913eadeb8758cd817c5a58d146b8
The branch, stable-2.0 has been updated
via e6c1c5f6cb16913eadeb8758cd817c5a58d146b8 (commit)
from 4dc4b86e858d391d20d0ea2551614a89fa3bd4d1 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit e6c1c5f6cb16913eadeb8758cd817c5a58d146b8
Author: Mark H Weaver <address@hidden>
Date: Fri Jan 31 04:01:12 2014 -0500
Revert "Primitive expand numerical comparisons with more than 2 arguments."
This reverts commit 4dc4b86e858d391d20d0ea2551614a89fa3bd4d1.
-----------------------------------------------------------------------
Summary of changes:
module/language/tree-il/primitives.scm | 20 --------------------
1 files changed, 0 insertions(+), 20 deletions(-)
diff --git a/module/language/tree-il/primitives.scm
b/module/language/tree-il/primitives.scm
index e9fd0e9..f140eec 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
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-175-ge6c1c5f,
Mark H Weaver <=