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

cs: fix error with a single symbol argument

Browse Source 
Closes #2379
This commit is contained in:
Matthew Flatt 2018-11-17 15:06:55 -07:00
parent c1c110f662
commit f6eb956199
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/io/error/main.rkt
View File

@ -19,7 +19,7 @@
(null? args)) (null? args))
(raise (raise
(exn:fail (exn:fail
(format "error: ~a" init) (string-append "error: " (symbol->string init))
(current-continuation-marks)))] (current-continuation-marks)))]
[(symbol? init) [(symbol? init)
(unless (string? (car args)) (unless (string? (car args))