at-exp 'eat' prefix space bug?

[simmone]

When I use at-exp to build my test data, I found it’ll eat prefix space, it’s a bug?

code is here:

#lang at-exp racket/base

(require rackunit/text-ui)

(require rackunit)

(define S string-append)

(define expected @S{


s

})

(define test-exp
(test-suite
"test-exp"

(test-case
"test-exp"

(check-equal? expected " \n \n s\n ")

)

))

(run-tests test-exp)


result is here:

actual: "\n\ns\n"
expected: " \n \n s\n “

All the prefix spaces is ‘eaten’.

I search the source, but can’t found the code about the trim.

Can someone help this?

Thanks.