generic.parser: Show the bad effects in the error.

diff --git a/core/generic/parser/parser.factor b/core/generic/parser/parser.factor
index 30a463ddbd8d290db0b3ea8c444153823210c735..aeaff1a8116fac68a304c16e832f3a055c590479 100644 (file)
--- a/core/generic/parser/parser.factor
+++ b/core/generic/parser/parser.factor
@@ -35,10 +35,11 @@ SYMBOL: current-method
         [ 2drop t ] [ [ out>> length ] same? ] if
     ] 2bi and ;
 
-ERROR: bad-method-effect ;
+ERROR: bad-method-effect effect expected-effect ;
 
 : check-method-effect ( effect -- )
-    last-word generic-effect method-effect= [ bad-method-effect ] unless ;
+    last-word generic-effect 2dup method-effect=
+    [ 2drop ] [ bad-method-effect ] if ;
 
 : parse-method-definition ( -- quot )
     scan-datum {