From a86a0cd326282b80b9a758a71bd059bc33f61f0e Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 18 Jul 2014 19:58:08 -0700 Subject: [PATCH] Remove redundant and wrong clause in match-values --- minimart/route.rkt | 4 ---- 1 file changed, 4 deletions(-) diff --git a/minimart/route.rkt b/minimart/route.rkt index 557f3d8..9af8415 100644 --- a/minimart/route.rkt +++ b/minimart/route.rkt @@ -468,10 +468,6 @@ (walk rest stack1 (rlookup r EOS (get ?)))])] [(cons (== ?) rest) (error 'matcher-match-value "Cannot match wildcard as a value")] - [(cons '() rest) - (match (get SOL) - [#f (walk rest stack (get ?))] - [k (walk '() (cons rest stack) k)])] [(cons (cons v1 v2) rest) (match (get SOL) [#f (walk rest stack (get ?))]