[project @ 2001-11-27 10:03:36 by simonpj]

Behave better in decode_escape failure

ghc/compiler/basicTypes/OccName.lhs

@@ -587,6 +587,7 @@ decode_escape (c : rest)
     go n other = pprPanic "decode_escape" (ppr n <+> text (c:rest))
 
 decode_escape (c : rest) = pprTrace "decode_escape" (char c) (decode rest)
+decode_escape []	 = pprTrace "decode_escape" (text "empty") ""
 \end{code}