|
324 | 324 | }
|
325 | 325 | }
|
326 | 326 |
|
327 |
| - |
328 | 327 | /***********************************************************************
|
329 | 328 | **
|
330 |
| -*/ REBFLG Copy_Map(REBVAL *out, REBVAL *data, REBU64 types) |
| 329 | +*/ REBFLG MT_Map(REBVAL *out, REBVAL *data, REBCNT type) |
331 | 330 | /*
|
332 | 331 | ***********************************************************************/
|
333 | 332 | {
|
|
344 | 343 | //COPY_BLK_PART(series, VAL_BLK_DATA(data), n);
|
345 | 344 | Append_Map(series, data, UNKNOWN);
|
346 | 345 |
|
347 |
| - if (types != 0) Copy_Deep_Values(series, 0, SERIES_TAIL(series), types); |
| 346 | + if (type != 0) Copy_Deep_Values(series, 0, SERIES_TAIL(series), type); |
348 | 347 |
|
349 | 348 | Rehash_Hash(series);
|
350 | 349 |
|
|
354 | 353 | }
|
355 | 354 |
|
356 | 355 |
|
357 |
| -/*********************************************************************** |
358 |
| -** |
359 |
| -*/ REBFLG MT_Map(REBVAL *out, REBVAL *data, REBCNT type) |
360 |
| -/* |
361 |
| -***********************************************************************/ |
362 |
| -{ |
363 |
| - //Oldes: MT means "make type" and has fixed arguments |
364 |
| - return Copy_Map(out, data, 0); |
365 |
| -} |
366 |
| - |
367 |
| - |
368 | 356 | /***********************************************************************
|
369 | 357 | **
|
370 | 358 | */ REBSER *Map_To_Block(REBSER *mapser, REBINT what)
|
|
521 | 509 | case A_TO:
|
522 | 510 | // make map! [word val word val]
|
523 | 511 | if (IS_BLOCK(arg) || IS_PAREN(arg) || IS_MAP(arg)) {
|
524 |
| - if (Copy_Map(D_RET, arg, 0)) return R_RET; |
| 512 | + if (MT_Map(D_RET, arg, 0)) return R_RET; |
525 | 513 | Trap_Arg(arg);
|
526 | 514 | // } else if (IS_NONE(arg)) {
|
527 | 515 | // n = 3; // just a start
|
|
547 | 535 | if (IS_DATATYPE(arg)) types |= TYPESET(VAL_DATATYPE(arg));
|
548 | 536 | else types |= VAL_TYPESET(arg);
|
549 | 537 | }
|
550 |
| - if (Copy_Map(D_RET, val, types)) return R_RET; |
| 538 | + if (MT_Map(D_RET, val, types)) return R_RET; |
551 | 539 | Trap_Arg(val);
|
552 | 540 | }
|
553 | 541 | case A_CLEAR:
|
|
0 commit comments