guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 05/09: Tweak intset printing


From: Andy Wingo
Subject: [Guile-commits] 05/09: Tweak intset printing
Date: Wed, 15 Jul 2015 07:51:36 +0000

wingo pushed a commit to branch master
in repository guile.

commit 363d6498e59180e02f30ed4716ba5e4980c703db
Author: Andy Wingo <address@hidden>
Date:   Tue Jul 14 13:54:19 2015 +0200

    Tweak intset printing
    
    * module/language/cps/intset.scm: Print members of set as absolute
      values, not diffs from set minumum.
---
 module/language/cps/intset.scm |    9 ++-------
 1 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/module/language/cps/intset.scm b/module/language/cps/intset.scm
index 005bb7e..7a16464 100644
--- a/module/language/cps/intset.scm
+++ b/module/language/cps/intset.scm
@@ -768,13 +768,8 @@
     (match ranges
       (()
        (format port "#<~a>" tag))
-      (((0 . _) . _)
-       (format port "#<~a ~a>" tag (range-string ranges)))
-      (((min . end) . ranges)
-       (let ((ranges (map (match-lambda
-                            ((start . end) (cons (- start min) (- end min))))
-                          (acons min end ranges))))
-         (format port "#<~a ~a+~a>" tag min (range-string ranges)))))))
+      (_
+       (format port "#<~a ~a>" tag (range-string ranges))))))
 
 (define (print-intset intset port)
   (print-helper port "intset" intset))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]