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 <[email protected]> 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
