Skip to content

Commit c4fe675

Browse files
Fix 4 occurrences of quasiquote-to-list
This quasiquotation is equialent to a simple `list` call.
1 parent 7195839 commit c4fe675

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/core/preprocess.rkt

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -180,16 +180,16 @@
180180
(define repr (context-lookup context a))
181181
(define fmin (get-fpcore-impl 'fmin (repr->prop repr) (list repr repr)))
182182
(define fmax (get-fpcore-impl 'fmax (repr->prop repr) (list repr repr)))
183-
(replace-vars (list (cons a `(,fmin ,a ,b)) (cons b `(,fmax ,a ,b))) expression)]
183+
(replace-vars (list (cons a (list fmin a b)) (cons b (list fmax a b))) expression)]
184184
[(list 'abs var)
185185
(define repr (context-lookup context var))
186186
(define fabs (get-fpcore-impl 'fabs (repr->prop repr) (list repr)))
187-
(define replacement `(,fabs ,var))
187+
(define replacement (list fabs var))
188188
(replace-expression expression var replacement)]
189189
[(list 'negabs var)
190190
(define repr (context-lookup context var))
191191
(define fabs (get-fpcore-impl 'fabs (repr->prop repr) (list repr)))
192-
(define replacement `(,fabs ,var))
192+
(define replacement (list fabs var))
193193
(define mul (get-fpcore-impl '* (repr->prop repr) (list repr repr)))
194194
(define copysign (get-fpcore-impl 'copysign (repr->prop repr) (list repr repr)))
195195
`(,mul (,copysign ,(literal 1 (representation-name repr)) ,var)

0 commit comments

Comments
 (0)