Arithmetic: assume improper fractions

Author: mikkelee

latex/fractional-math.sty

@@ -126,31 +126,30 @@
 
 \cs_new_protected:Nn \fracmath_garithmetic:NnN
 {
-	\prop_if_exist:NF #1 {
-		\prop_gclear_new:N #1
-	}
-	\fracmath_prepare:N #1
-	\fracmath_prepare:N #3
-
-	\regex_match_case:nn {
-		{ \A \+ \Z } { \fracmath_gsum:NnN #1 #2 #3 }
-		{ \A \- \Z } { \fracmath_gsum:NnN #1 #2 #3 }
-		{ \A \* \Z } { \fracmath_gmultiply:NN #1 #3 }
-	} { #2 }
+	\group_begin:
+		\prop_if_exist:NF #1 {
+			\prop_gclear_new:N #1
+		}
+		\fracmath_prepare:N #1
+		\fracmath_prepare:N #3
+
+		\regex_match_case:nn {
+			{ \A \+ \Z } { \fracmath_gsum:NnN #1 #2 #3 }
+			{ \A \- \Z } { \fracmath_gsum:NnN #1 #2 #3 }
+			{ \A \* \Z } { \fracmath_gmultiply:NN #1 #3 }
+		} { #2 }
+	\group_end:
 }
 \cs_generate_variant:Nn \fracmath_garithmetic:NnN
 {
 	cnN, cVN
 }
 
 % Adds or subtracts two values
+% NB: assumes they have been through \fracmath_prepare:N!
 \cs_new_protected:Nn \fracmath_gsum:NnN
 {
 	\int_zero_new:N \l__fracmath_tmp_value_int
-	\int_set:Nn \l__fracmath_tmp_value_int {
-		\prop_item:Nn #1 { integer } #2 \prop_item:Nn #3 { integer } 
-	}
-	\prop_gput:NnV #1 { integer } \l__fracmath_tmp_value_int
 
 	\int_set:Nn \l__fracmath_tmp_value_int {
 		( \prop_item:Nn #1 { numerator } * \prop_item:Nn #3 { denominator } ) #2
@@ -164,22 +163,11 @@
 	\prop_gput:NnV #1 { denominator } \l__fracmath_tmp_value_int
 }
 
-% converts a value into a pure fraction, eg a b/c => (ac+b)/c
-\cs_new_protected:Nn \fracmath_pure:N
-{
-	\int_zero_new:N \l__fracmath_tmp_value_int
-	\prop_put:NnV #1 { integer } \l__fracmath_tmp_value_int
-
-	\int_add:Nn \l__fracmath_tmp_value_int
-		{ \prop_item:Nn #1 { numerator } * \prop_item:Nn #1 { denominator } }
-	\prop_put:NnV #1 { numerator } \l__fracmath_tmp_value_int
-}
-
-% Multiplies a value by an integer
+% Multiplies a value by another value
+% NB: assumes they have been through \fracmath_prepare:N!
 \cs_new_protected:Nn \fracmath_gmultiply:NN
 {
-	\fracmath_pure:N #1
-	\fracmath_pure:N #2
+	\int_zero_new:N \l__fracmath_tmp_value_int
 
 	\int_set:Nn \l__fracmath_tmp_value_int
 		{ \prop_item:Nn #1 { numerator } * \prop_item:Nn #2 { numerator } }