don't optimise sub-args, as it may introduce new variables.
This commit is contained in:
parent
a6cb6f6a25
commit
875546e36a
@ -512,7 +512,9 @@ expand_goal(G, G).
|
|||||||
'$should_expand'(A,HVars),
|
'$should_expand'(A,HVars),
|
||||||
!,
|
!,
|
||||||
( X ==0 ->
|
( X ==0 ->
|
||||||
'$meta_expansion0'(A,CurMod,M,HM,NA,HVars)
|
'$values'('$c_arith',Old, false),
|
||||||
|
'$meta_expansion0'(A,CurMod,M,HM,NA,HVars),
|
||||||
|
'$values'('$c_arith', _False, Old)
|
||||||
;
|
;
|
||||||
NA = M:A
|
NA = M:A
|
||||||
),
|
),
|
||||||
|
Reference in New Issue
Block a user