From 6ffb6e69ed1232d31d61f9330b654c1bc43af2a7 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 8 May 2015 11:13:39 +0200
Subject: [PATCH] Add printers for <intmap> and <transient-intmap>

* module/language/cps/intmap.scm (intmap->alist, print-intmap)
  (print-transient-intmap): New functions.
  Install the new functions as printers for <intmap> and <transient-intmap>.
---
 module/language/cps/intmap.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/module/language/cps/intmap.scm b/module/language/cps/intmap.scm
index 7ab8f67da..146b55039 100644
--- a/module/language/cps/intmap.scm
+++ b/module/language/cps/intmap.scm
@@ -32,6 +32,7 @@
 
 (define-module (language cps intmap)
   #:use-module (srfi srfi-9)
+  #:use-module (srfi srfi-9 gnu)
   #:use-module (srfi srfi-18)
   #:use-module (ice-9 match)
   #:export (empty-intmap
@@ -590,3 +591,14 @@
           ((eq? root a-root) a)
           ((eq? root b-root) b)
           (else (make-intmap/prune a-min a-shift root)))))))))
+
+(define (intmap->alist intmap)
+  (reverse (intmap-fold acons intmap '())))
+
+(define (print-intmap intmap port)
+  (format port "#<intmap ~a>" (intmap->alist intmap)))
+(define (print-transient-intmap intmap port)
+  (format port "#<transient-intmap ~a>" (intmap->alist intmap)))
+
+(set-record-type-printer! <intmap> print-intmap)
+(set-record-type-printer! <transient-intmap> print-transient-intmap)