From 95812bd7a502869c9c440230f02e7524ff2c9c39 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 28 Aug 2020 11:05:15 -0600 Subject: [PATCH] cs: repair decoding of method names in stack traces --- racket/src/cs/rumble/object-name.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/racket/src/cs/rumble/object-name.ss b/racket/src/cs/rumble/object-name.ss index 4af8aa5735..f50c7d65c9 100644 --- a/racket/src/cs/rumble/object-name.ss +++ b/racket/src/cs/rumble/object-name.ss @@ -92,14 +92,14 @@ (lambda () (cond [(fx= 1 len) ""] - [(char=? #\; (string-ref n 0)) + [(char=? #\! (string-ref n 1)) ; => method (substring n 2 len)] - [(char=? #\^ (string-ref n 0)) + [(char=? #\^ (string-ref n 1)) ; => not a method (substring n 2 len)] [else (substring n 1 len)]))]) (cond - [(char=? #\[ (string-ref n 0)) + [(char=? #\[ (string-ref n 0)) ; => name is derived from a path (let ([n (strip-prefix)]) ;; Empty means no name (if (eqv? "" n)