From 51e11a21143df9066b8d3731cd460d17715e1d1d Mon Sep 17 00:00:00 2001
From: Jeff Bezanson <jeff.bezanson@gmail.com>
Date: Tue, 17 Apr 2018 16:52:59 -0400
Subject: [PATCH] add `do` in front-end deparser. fixes #17781

---
 src/ast.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/ast.scm b/src/ast.scm
index d5016348c73c8b..1a9dbf4b2768b6 100644
--- a/src/ast.scm
+++ b/src/ast.scm
@@ -179,6 +179,12 @@
                               ""))
                         "")
                     (string.rep "    " ilvl) "end"))
+	   ((do)
+	    (let ((call (cadr e))
+		  (args (cdr (cadr (caddr e))))
+		  (body (caddr (caddr e))))
+	      (deparse-block (string (deparse call) " do " (deparse-arglist args))
+			     (cdr body) ilvl)))
            ((struct)
             (string (if (eq? (cadr e) 'true) "mutable " "")
                     "struct "