ASSERT_MSG: eval-apply

This commit is contained in:
Jan Nieuwenhuizen 2019-10-26 08:12:41 +02:00
parent ad6888ded2
commit b2bcf6456c
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 5 additions and 1 deletions

View File

@ -877,7 +877,11 @@ begin_expand:
else if (TYPE (R1) == TPORT)
input = set_current_input_port (R1);
else
assert_msg (0, "0");
{
eputs ("begin_expand failed, R1=");
display_error_ (R1);
assert_msg (0, "begin-expand-boom 0");
}
push_cc (input, R2, R0, cell_vm_return);
x = read_input_file_env (R0);