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

cs: fix check for escaping procedure name

Browse Source
This commit is contained in:
Matthew Flatt 2019-12-18 06:42:33 -07:00
parent c61dc30560
commit a135a868a8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/schemify/infer-name.rkt
View File

@ -12,8 +12,8 @@
(cond (cond
[(and (fx> (string-length s) 0) [(and (fx> (string-length s) 0)
(let ([ch (string-ref s 0)]) (let ([ch (string-ref s 0)])
(or (char=? #\[) (or (char=? #\[ ch)
(char=? #\])))) (char=? #\] ch))))
;; Symbolic name starts with "[" or "]". To avoid confusing ;; Symbolic name starts with "[" or "]". To avoid confusing
;; it with a path or "no name" encoding, add an extra ;; it with a path or "no name" encoding, add an extra
;; "]" to be stripped away. ;; "]" to be stripped away.