cs: fix check for escaping procedure name

2019-12-18 06:42:33 -07:00 · 2019-12-18 06:42:33 -07:00 · a135a868a8
commit a135a868a8
parent c61dc30560
1 changed files with 2 additions and 2 deletions
--- a/racket/src/schemify/infer-name.rkt
+++ b/racket/src/schemify/infer-name.rkt
@ -12,8 +12,8 @@
     (cond
       [(and (fx> (string-length s) 0)
             (let ([ch (string-ref s 0)])
-               (or (char=? #\[)
-                   (char=? #\]))))
+               (or (char=? #\[ ch)
+                   (char=? #\] ch))))
        ;; Symbolic name starts with "[" or "]". To avoid confusing
        ;; it with a path or "no name" encoding, add an extra
        ;; "]" to be stripped away.