Add support for racket/promise

Fixing poor formatting in racket/typed-racket#1426

Author: sorawee

conventions.rkt

@@ -513,6 +513,11 @@
 
   [("begin" "begin-for-syntax") (format-uniform-body/helper 0 #:require-body? #f)]
   [("test-begin") (format-uniform-body/helper 0 #:require-body? #f)]
+
+  [("delay" "lazy") (format-uniform-body/helper 0)]
+  [("delay/name" "delay/strict" "delay/sync" "delay/thread" "delay/idle")
+   (format-uniform-body/helper 0)]
+
   [("begin0") (format-uniform-body/helper 1)]
   [("module+") (format-uniform-body/helper 1)]
   [("let/ec" "let/cc") (format-uniform-body/helper 1)]

tests/test-cases/delay.rkt

@@ -0,0 +1,10 @@
+#lang racket
+
+(delay/thread (begin0 (run-in-other-place p* error?)
+                (when (zero? (modulo i 10))
+                  (eprintf "."))))
+
+(delay/thread #:wait-for wait-evt-expr #:work-while while-evt-expr #:tick tick-secs-expr #:use use-ratio-expr
+ (begin0 (run-in-other-place p* error?)
+   (when (zero? (modulo i 10))
+     (eprintf "."))))

tests/test-cases/delay.rkt.out

@@ -0,0 +1,15 @@
+#lang racket
+
+(delay/thread
+  (begin0 (run-in-other-place p* error?)
+    (when (zero? (modulo i 10))
+      (eprintf "."))))
+
+(delay/thread
+  #:wait-for wait-evt-expr
+  #:work-while while-evt-expr
+  #:tick tick-secs-expr
+  #:use use-ratio-expr
+  (begin0 (run-in-other-place p* error?)
+    (when (zero? (modulo i 10))
+      (eprintf "."))))