From 74d7ac4276aaf8225ce2d23a5a6cae17d611571b Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 26 Sep 2008 12:23:33 +0000 Subject: [PATCH] Fix handling of explicit maker in tc-struct. svn: r11881 original commit: 98c02cb887c493ed5aa9c371b382200f0600049d --- collects/typed-scheme/typecheck/tc-structs.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/typed-scheme/typecheck/tc-structs.ss b/collects/typed-scheme/typecheck/tc-structs.ss index 86233c0d..9bd3eca2 100644 --- a/collects/typed-scheme/typecheck/tc-structs.ss +++ b/collects/typed-scheme/typecheck/tc-structs.ss @@ -89,7 +89,7 @@ #:type-wrapper [type-wrapper values] #:mutable [setters? #f] #:proc-ty [proc-ty #f] - #:maker [maker #f] + #:maker [maker* #f] #:constructor-return [cret #f] #:poly? [poly? #f]) ;; create the approriate names that define-struct will bind @@ -102,7 +102,7 @@ (register-struct-types nm sty flds external-fld-types external-fld-types/no-parent setters? #:wrapper wrapper #:type-wrapper type-wrapper - #:maker maker + #:maker (or maker* maker) #:constructor-return cret))) ;; generate names, and register the approriate types give field types and structure type