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