+ (list (make-port-remove-request port)
+ (make-run-request (wrap kont) #f)))))
+
+
+;; Sugar
+(define-syntax-rule (%8sync-run rest ...)
+ "Sugar for (%8sync (%run ...))"
+ (%8sync (%run rest ...)))
+
+(define-syntax-rule (%8sync-run-at rest ...)
+ "Sugar for (%8sync (%run-at ...))"
+ (%8sync (%run-at rest ...)))
+
+(define-syntax-rule (%8sync-run-delay rest ...)
+ "Sugar for (%8sync (%run-delay ...))"
+ (%8sync (%run-delay rest ...)))
+
+(define-syntax-rule (%8sync-port rest ...)
+ "Sugar for (%8sync (%port-request ...))"
+ (%8sync (%port-request rest ...)))
+
+(define-syntax-rule (%8sync-port-remove rest ...)
+ "Sugar for (%8sync (%port-remove-request ...))"
+ (%8sync (%port-remove-request rest ...)))
+