From 26d517cfa807468fca12834cfd26a967ab3e4149 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sat, 14 Feb 2009 12:17:14 +0000 Subject: [PATCH] stxclass: fixed scoping of attributes (wrt declare) added 'attribute' form added internal/external literals form svn: r13574 original commit: 44efc7cb48ab4f231a024b037c80de6528b99b7c --- collects/typed-scheme/private/parse-type.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/parse-type.ss b/collects/typed-scheme/private/parse-type.ss index 6c38ec5f..a454714c 100644 --- a/collects/typed-scheme/private/parse-type.ss +++ b/collects/typed-scheme/private/parse-type.ss @@ -144,8 +144,8 @@ (define-syntax-class type-app (pattern (i arg:type args:type ...) - #:when (identifier? #'i) #:declare i type + #:when (identifier? #'i) #:with t (let loop ([rator #'i.t] [args (syntax->datum #'(arg.t args.t ...))])