18 lines
236 B
Racket
18 lines
236 B
Racket
#lang racket
|
|
|
|
;; test for pr11445
|
|
|
|
(require 2htdp/batch-io)
|
|
|
|
(with-output-to-file "batch-io2.txt"
|
|
(lambda ()
|
|
(display "hello")
|
|
(display #\return)
|
|
(display #\linefeed))
|
|
#:exists 'replace)
|
|
|
|
(read-lines "batch-io2.txt")
|
|
|
|
|
|
|