Skip to content

Commit e02c067

Browse files
Fix 3 occurrences of quasiquote-to-list
This quasiquotation is equialent to a simple `list` call.
1 parent 3222f8b commit e02c067

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

typed-racket-lib/typed-racket/types/printer.rkt

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -132,7 +132,7 @@
132132
(define name-ref->sexp
133133
(match-lambda
134134
[(? syntax? name-ref) (syntax-e name-ref)]
135-
[(cons lvl arg) `(,lvl ,arg)]))
135+
[(cons lvl arg) (list lvl arg)]))
136136

137137
;; prop->sexp : Prop -> S-expression
138138
;; Print a Prop (see prop-rep.rkt) to the given port
@@ -509,11 +509,11 @@
509509
(cons 'field
510510
(for/list ([name+type (in-list fields)])
511511
(match-define (list name type) name+type)
512-
`(,name ,(type->sexp type)))))))
512+
(list name (type->sexp type)))))))
513513
(define methods*
514514
(for/list ([name+type (in-list methods)])
515515
(match-define (list name type) name+type)
516-
`(,name ,(type->sexp type))))
516+
(list name (type->sexp type))))
517517
(define augments*
518518
(cond [(or object? (null? augments)) '()]
519519
[else (list (cons 'augment augments))]))

0 commit comments

Comments
 (0)