From d396c70d0e53a33822ba8706a2a1d5e9396cd81b Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 5 Apr 2020 11:30:02 -0700 Subject: [PATCH] correct function name in error messages needs to be `s-exp->fasl` not `fasl->s-exp` --- racket/collects/racket/fasl.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/racket/collects/racket/fasl.rkt b/racket/collects/racket/fasl.rkt index faa387a61b..c91d7b6abb 100644 --- a/racket/collects/racket/fasl.rkt +++ b/racket/collects/racket/fasl.rkt @@ -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)))