This commit is contained in:
Ryan Culpepper 2017-02-11 12:04:38 -05:00 committed by Matthew Flatt
parent 408a8cb79e
commit ed3d2d0082

View File

@ -93,7 +93,7 @@
(internal-definition-context? intdefs)
(and (list? intdefs) (andmap internal-definition-context? intdefs)))
(raise-argument-error who
"(or/c #f internal-definitionc-context? (listof internal-definitionc-context?))"
"(or/c #f internal-definition-context? (listof internal-definition-context?))"
intdefs))
(define ctx (get-current-expand-context who))