add do in front-end deparser. fixes #17781

JuliaLang · Apr 17, 2018 · 51e11a2 · 51e11a2
1 parent ca7e837
commit 51e11a2
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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 "