diff --git a/turnstile/examples/rosette/synthcl3.rkt b/turnstile/examples/rosette/synthcl3.rkt index 2ac1821..bd2432d 100644 --- a/turnstile/examples/rosette/synthcl3.rkt +++ b/turnstile/examples/rosette/synthcl3.rkt @@ -401,7 +401,7 @@ [(_ x:id e) ≫ [⊢ x ≫ x- ⇒ ty-x] [⊢ e ≫ e- ⇒ ty-e] - #:fail-unless (cast-ok? #'ty-e #'ty-x stx) + #:fail-unless (cast-ok? #'ty-e #'ty-x this-syntax) (format "cannot cast ~a to ~a" (type->str #'ty-e) (type->str #'ty-x)) #:with conv (get-convert #'ty-x) --------