suzanne.soy/2d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add error message with the right form name

Browse Source 
original commit: 431a520ed867cf82947a00650ef64dedaafbec51
This commit is contained in:
Robby Findler 2013-08-14 15:45:49 -05:00
parent 3eae0d34bd
commit 6721cf7f42
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/gui-pkgs/gui-lib/unstable/2d/match.rkt
View File

@ -67,4 +67,9 @@
[y (in-range 1 num-of-rows)]) [y (in-range 1 num-of-rows)])
#`[(#,(hash-ref coord-to-content (list x 0)) #`[(#,(hash-ref coord-to-content (list x 0))
#,(hash-ref coord-to-content (list 0 y))) #,(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))