add failure check on match-define

mattwparas · Dec 29, 2023 · a172638 · a172638
1 parent 7c4fccc
commit a172638
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/crates/steel-core/src/scheme/modules/match.scm b/crates/steel-core/src/scheme/modules/match.scm
@@ -250,14 +250,12 @@
           (define final-expr
             `(define-values (,@list-identifiers)
                (let ([,temp ,(go-match pattern variable `(list ,@list-identifiers) (mutable-vector))])
-                 (if (not (equal? #f))
+                 (if (not (equal? #f ,temp))
                      ,temp
                      (error-with-span (quote ,(syntax-span (third unwrapped)))
                                       "Unable to match the given expression: "
                                       ,variable
                                       "to any of the patterns")))))
-          ; (displayln (syntax-span expression))
-          ; (displayln final-expr)
           (syntax/loc final-expr
             (syntax-span expression)))