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

cs: fix printing of some symbols

Browse Source 
Commit bd6cf17f92 wasn't the right repair.
This commit is contained in:
Matthew Flatt 2019-01-30 20:29:45 -07:00
parent 63fb08905b
commit cf72bace95
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/cs/expander.sls
View File

@ -208,7 +208,11 @@
;; the printer needs to check whether a string parses as a number ;; the printer needs to check whether a string parses as a number
;; for deciding wheter to quote the string ;; for deciding wheter to quote the string
(set-string->number?! (lambda (str) (set-string->number?! (lambda (str)
(number? (1/string->number str 10 'read)))) (and (1/string->number str 10 'read)
;; Special case: `#%` is never read as a number or error:
(not (and (>= (string-length str) 2)
(eqv? (string-ref str 0) #\#)
(eqv? (string-ref str 1) #\%))))))
;; `set-maybe-raise-missing-module!` is also from the `io` library ;; `set-maybe-raise-missing-module!` is also from the `io` library
(set-maybe-raise-missing-module! maybe-raise-missing-module)) (set-maybe-raise-missing-module! maybe-raise-missing-module))