suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: repair decoding of method names in stack traces

Browse Source
This commit is contained in:
Matthew Flatt 2020-08-28 11:05:15 -06:00
parent a22550a963
commit 95812bd7a5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/cs/rumble/object-name.ss
View File

@ -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)