expander: fix an error message

This commit is contained in:
Matthew Flatt 2018-03-11 10:37:37 -06:00
parent 14448eb1bd
commit 13242b06d6
2 changed files with 2 additions and 2 deletions

View File

@ -252,7 +252,7 @@
(lambda (s)
(raise-arguments-error 'datum->syntax
"cannot create syntax from cyclic datum"
s))))
"datum" s))))
;; ----------------------------------------

View File

@ -6078,7 +6078,7 @@ static const char *startup_source =
"(disallow-cycles)"
"(hasheq"
" 'cycle-fail"
" (lambda (s_64) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" s_64))))"
" (lambda (s_64) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" \"datum\" s_64))))"
"(define-values"
"(struct:syntax-state"
" syntax-state19.1"