#lang resyntax/test

test: "original code should be refactorable to new code"
--------------------
#lang racket
(define (f path s)
  (call-with-output-file path
    (lambda (out)
      (displayln s out))))
====================
#lang racket
(define (f path s)
  (display-lines-to-file (list s) path))
--------------------