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

Remove an unnecessary syntax-parse expression

Browse Source 
Not sure why this was there
This commit is contained in:
Asumu Takikawa 2014-11-05 17:03:52 -05:00
parent 8137163b7f
commit c51a87dc36
1 changed files with 50 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/core.rkt
View File

@ -79,17 +79,15 @@
;; for looking up types in the optimizer.
[(transformed-body ...)
(change-contract-fixups (flatten-all-begins #'(begin optimized-body ...)))])
(syntax-parse body2
[_ (let ([ty-str (match type
(define ty-str
(match type
;; 'no-type means the form is not an expression and
;; has no meaningful type to print
['no-type #f]
;; don't print results of type void
[(tc-result1: (== -Void type-equal?))
#f]
[(tc-result1: (== -Void type-equal?)) #f]
;; don't print results of unknown type
[(tc-any-results: f)
#f]
[(tc-any-results: f) #f]
[(tc-result1: t f o)
;; Don't display the whole types at the REPL. Some case-lambda types
;; are just too large to print.
@ -123,11 +121,11 @@
[did-I-suggest-:print-type-already? " ..."]
[else (set! did-I-suggest-:print-type-already? #t)
:print-type-message]))]
[x (int-err "bad type result: ~a" x)])])
[x (int-err "bad type result: ~a" x)]))
(if ty-str
#`(begin (display '#,ty-str)
#,(if (unbox include-extra-requires?)
extra-requires
#'(begin))
#,(arm #'(begin transformed-body ...)))
(arm #'(begin transformed-body ...))))]))))]))
(arm #'(begin transformed-body ...))))))]))