+ { x = MP_COPY(x); if (d) MP_DROP(d); return (x); }
+
+/* --- @field_samep@ --- *
+ *
+ * Arguments: @field *f, *g@ = two fields
+ *
+ * Returns: Nonzero if the fields are identical (not just isomorphic).
+ *
+ * Use: Checks for sameness of fields. This function does the full
+ * check, not just the field-type-specific check done by the
+ * @sampep@ field operation.
+ */
+
+int field_samep(field *f, field *g)
+ { return (f == g || (f->ops == g->ops && F_SAMEP(f, g))); }
+
+/* --- @field_stdsamep@ --- *
+ *
+ * Arguments: @field *f, *g@ = two fields
+ *
+ * Returns: Nonzero if the fields are identical (not just isomorphic).
+ *
+ * Use: Standard sameness check, based on equality of the @m@
+ * member.
+ */
+
+int field_stdsamep(field *f, field *g) { return (MP_EQ(f->m, g->m)); }