font size inconsistency

[sorawee]

Consider:

#lang racket
(add1 (let loop ([n 5])
        (cond
          [(zero? n) (/ 1 0)]
          [else (add1 (loop (sub1 n)))])))

The backtrace displays:

Notice that

• the size of the first srcloc is different from the size of other srclocs
• the size of most srclocs are different from the size of "skip duplicate frames"
• srclocs have a space between source name and line&column, which is not how srclocs are usually formatted.

It's unclear what is the desired outcome, but it definitely should not be inconsistent like this.

[rfindler]

They should all be like the first one, IMO.