From ffadf59303802444b1154aa25841c0cf05011111 Mon Sep 17 00:00:00 2001
From: Mike Sperber <sperber@deinprogramm.de>
Date: Mon, 23 Nov 2009 11:21:30 +0000
Subject: [PATCH] Fix really stupid bug in `convert-explicit'.

svn: r16989
---
 collects/deinprogramm/convert-explicit.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/deinprogramm/convert-explicit.scm b/collects/deinprogramm/convert-explicit.scm
index 41696e73c7..87e54978bd 100644
--- a/collects/deinprogramm/convert-explicit.scm
+++ b/collects/deinprogramm/convert-explicit.scm
@@ -63,7 +63,7 @@
        ((null? v) (make-:empty-list)) ; prevent silly printing of sharing
        ((pair? v)
 	(make-:list
-	 (let recur ((v v))
+	 (let list-recur ((v v))
 	   (cond
 	    ((null? v)
 	     v)
@@ -71,7 +71,7 @@
 	     (recur v))
 	    (else
 	     (cons (recur (car v))
-		   (recur (cdr v))))))))
+		   (list-recur (cdr v))))))))
        ((deinprogramm-struct? v)
 	(or (hash-ref hash v #f)
 	    (let*-values (((ty skipped?) (struct-info v))