suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

now fully typechecks

Browse Source 
svn: r13582
This commit is contained in:
Sam Tobin-Hochstadt 2009-02-14 20:48:40 +00:00
parent 7830091d42
commit f5c60e9282
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/drscheme/syncheck/extra-typed.ss
View File

@ -17,7 +17,7 @@
[else (let: loop : (Listof Syntax) [else (let: loop : (Listof Syntax)
([fst : Syntax (car ids)] ([fst : Syntax (car ids)]
[rst : (Listof Syntax) (cdr ids)]) [rst : (Listof Syntax) (cdr ids)])
(cond (error 'foo) #;(cond
[(null? rst) (list fst)] [(null? rst) (list fst)]
[else (if (and (eq? (syntax-source fst) [else (if (and (eq? (syntax-source fst)
(syntax-source (car rst))) (syntax-source (car rst)))
@ -83,7 +83,7 @@
(: annotate-tail-position/last (Syntax (Listof Syntax) TailHT -> Void)) (: annotate-tail-position/last (Syntax (Listof Syntax) TailHT -> Void))
(define (annotate-tail-position/last orig-stx stxs tail-ht) (define (annotate-tail-position/last orig-stx stxs tail-ht)
(unless (null? stxs) (unless (null? stxs)
(annotate-tail-position orig-stx (car (last-pair stxs)) tail-ht))) (annotate-tail-position orig-stx (car (#{last-pair @ Syntax} stxs)) tail-ht)))
;; annotate-tail-position : syntax -> void ;; annotate-tail-position : syntax -> void
;; colors the parens (if any) around the argument ;; colors the parens (if any) around the argument
@ -193,8 +193,6 @@
[prev (hash-ref ht #{key :: Any} (λ () #{null :: (Listof Any)}))]) [prev (hash-ref ht #{key :: Any} (λ () #{null :: (Listof Any)}))])
(hash-set! ht #{key :: Any} #{(cons var prev) :: (Listof Any)})))) (hash-set! ht #{key :: Any} #{(cons var prev) :: (Listof Any)}))))
#| #|
;; annotate-basic : syntax ;; annotate-basic : syntax
;; namespace ;; namespace