diff options
Diffstat (limited to 'src/interp/bc-solve.boot')
| -rw-r--r-- | src/interp/bc-solve.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/bc-solve.boot b/src/interp/bc-solve.boot index be4a176b..a2984641 100644 --- a/src/interp/bc-solve.boot +++ b/src/interp/bc-solve.boot @@ -184,14 +184,14 @@ bcCreateVariableString(i) == STRCONC('"x",STRINGIMAGE i) bcMakeUnknowns(number)== - apply('CONCAT,[STRCONC(bcCreateVariableString(i)," ") for i in 1..number]) + apply(function strconc,[STRCONC(bcCreateVariableString(i)," ") for i in 1..number]) bcMakeEquations(i,number)== number =1 => STRCONC(bcCreateVariableString(1),"^2+1") bcCreateVariableString(i) STRCONC( STRCONC( - apply('CONCAT,[STRCONC(bcCreateVariableString(j),"+") for j in 1..number]),"1"), + apply(function strconc,[STRCONC(bcCreateVariableString(j),"+") for j in 1..number]),"1"), STRCONC("-2*",STRCONC(bcCreateVariableString(i),"^2"))) @@ -202,7 +202,7 @@ bcMakeLinearEquations(i,number)== STRCONC(bcCreateVariableString(1),STRCONC("-",bcCreateVariableString(2))) STRCONC( STRCONC( - apply('CONCAT,[STRCONC(bcCreateVariableString(j),"+") for j in 1..number]),"1"), + apply(function strconc,[STRCONC(bcCreateVariableString(j),"+") for j in 1..number]),"1"), STRCONC("-2*",bcCreateVariableString(i))) |