diff --git a/pkgs/gui-pkgs/gui-lib/unstable/2d/match.rkt b/pkgs/gui-pkgs/gui-lib/unstable/2d/match.rkt index d201ec8..3f2d7b5 100644 --- a/pkgs/gui-pkgs/gui-lib/unstable/2d/match.rkt +++ b/pkgs/gui-pkgs/gui-lib/unstable/2d/match.rkt @@ -67,4 +67,9 @@ [y (in-range 1 num-of-rows)]) #`[(#,(hash-ref coord-to-content (list x 0)) #,(hash-ref coord-to-content (list 0 y))) - (let () #,@(hash-ref coord-to-content (list x y)))]))))])) + (let () #,@(hash-ref coord-to-content (list x y)))]) + [(_ _) + (2dmatch-error #,@main-args)])))])) + +(define (2dmatch-error a b) + (error '2dmatch "no matching clauses for ~e and ~e" a b))