File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed
typed-racket-lib/typed-racket/types Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 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
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))]))
You can’t perform that action at this time.
0 commit comments