Quick fix

This commit is contained in:
Hugo Sales 2018-12-17 16:34:02 +00:00
parent 74d9e9cc5b
commit 9aeaebfded

View File

@ -278,10 +278,10 @@ parse_polynomial_explicit(void-_, T) -->
parse_command(show(void, T)) --> %% NOTE Probably easier if the tree is always binary
[show],
parse_polynomial_explicit(T).
parse_polynomial(T).
parse_command(show(P, T)) -->
[show],
parse_polynomial_explicit(T),
parse_polynomial(T),
[as],
[P].
parse_command(show_all) -->
@ -290,20 +290,20 @@ parse_command(store(P, T)) -->
[let],
[P],
[be],
parse_polynomial_explicit(T).
parse_polynomial(T).
parse_command(store(P, T)) -->
[store],
parse_polynomial_explicit(T),
parse_polynomial(T),
[as],
[P].
parse_command(simplify(T)) -->
[simplify],
parse_polynomial_explicit(T).
parse_polynomial(T).
parse_command(op(*, TN, TP)) -->
[multiply],
parse_number(TN),
[by],
parse_polynomial_explicit(_-_, TP).
parse_polynomial(_-_, TP).
parse_input(command(TCL, TCR)) -->
parse_command(TCL),