FIX: corrected code for copy map!

related to: Oldes/Rebol-issues#1864 Oldes/Rebol-issues#2293
Oldes · Sep 20, 2021 · 85de1db · 85de1db
1 parent 9d225e5
commit 85de1db
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/core/t-map.c b/src/core/t-map.c
@@ -360,7 +360,7 @@
 
 /***********************************************************************
 **
-*/	REBFLG MT_Map(REBVAL *out, REBVAL *data, REBU64 type)
+*/	REBFLG MT_Map(REBVAL *out, REBVAL *data, REBCNT type)
 /*
 ***********************************************************************/
 {
@@ -575,11 +575,10 @@
 			else types |= VAL_TYPESET(arg);
 		}
 		if (D_REF(ARG_COPY_DEEP)) {
-			//puts("deep copy wanted");
 			types |= CP_DEEP | (D_REF(ARG_COPY_TYPES) ? types : TS_DEEP_COPIED);
 		}
-		if (MT_Map(D_RET, val, types)) return R_RET;
-		Trap_Arg(val);
+		Set_Series(REB_MAP, D_RET, Copy_Map(val, types));
+		break;
 	}
 	case A_CLEAR:
 		Clear_Series(series);