Don't look inside guesses for metavariables

This will happen if there's an error earlier in the file, and only leads
to a cryptic error message
This commit is contained in:
Edwin Brady 2019-07-04 10:54:01 +01:00
parent 6f5d3f5fef
commit 4f4be770ad

View File

@ -206,6 +206,7 @@ mutual
| _ => throw (UndefinedName fc n)
let expand = case (definition gdef, rig) of
(Hole _ _, _) => False
(Guess _ _, _) => False
(_, Rig0) => False
_ => True
if expand