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

correct function name in error messages

Browse Source 
needs to be `s-exp->fasl` not `fasl->s-exp`
This commit is contained in:
Matthew Butterick 2020-04-05 11:30:02 -07:00 committed by GitHub
parent 282ec8125a
commit d396c70d0e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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/collects/racket/fasl.rkt
View File

@ -124,13 +124,13 @@
#:external-lift? [external-lift? #f])
(when orig-o
(unless (output-port? orig-o)
(raise-argument-error 'fasl->s-exp "(or/c output-port? #f)" orig-o)))
(raise-argument-error 's-exp->fasl "(or/c output-port? #f)" orig-o)))
(when handle-fail
(unless (and (procedure? handle-fail) (procedure-arity-includes? handle-fail 1))
(raise-argument-error 'fasl->s-exp "(or/c (procedure-arity-includes/c 1) #f)" handle-fail)))
(raise-argument-error 's-exp->fasl "(or/c (procedure-arity-includes/c 1) #f)" handle-fail)))
(when external-lift?
(unless (and (procedure? external-lift?) (procedure-arity-includes? external-lift? 1))
(raise-argument-error 'fasl->s-exp "(or/c (procedure-arity-includes/c 1) #f)" external-lift?)))
(raise-argument-error 's-exp->fasl "(or/c (procedure-arity-includes/c 1) #f)" external-lift?)))
(define o (or orig-o (open-output-bytes)))
(define shared (make-hasheq))
(define external-lift (and external-lift? (make-hasheq)))