Fixed require typed struct

original commit: abc8e514d9bb9e054c5a9083b47f7351899621a2
This commit is contained in:
Eric Dobson 2011-07-04 11:23:37 -04:00 committed by Vincent St-Amour
parent 4c45389e85
commit aa247c5d10

View File

@ -513,7 +513,7 @@ This file defines two sorts of primitives. All of them are provided into any mod
;This needs to be a different identifier to meet the specifications
;of struct (the id constructor shouldn't expand to it)
#,(if (syntax-e #'extra-maker)
#'(require/typed (maker-name extra-maker) nm lib #:struct-maker #f)
#'(require/typed (maker-name extra-maker) nm lib #:struct-maker parent)
#'(begin))
(require/typed lib