mp void primitive is only for experimental -- trunk

git-svn-id: https://serveur-svn.lri.fr/svn/modhel/luatex/trunk@7102 0b2b3880-5936-4365-a048-eb17d2e5a6bf

source/texk/web2c/mplibdir/mp.w

@@ -3272,7 +3272,6 @@ mp_begin_group, /* beginning of a group (\&{begingroup}) */
 mp_nullary, /* an operator without arguments (e.g., \&{normaldeviate}) */
 mp_unary, /* an operator with one argument (e.g., \&{sqrt}) */
 mp_str_op, /* convert a suffix to a string (\&{str}) */
-mp_void_op, /* convert a suffix to a boolean (\&{void}) */
 mp_cycle, /* close a cyclic path (\&{cycle}) */
 mp_primary_binary, /* binary operation taking `\&{of}' (e.g., \&{point}) */
 mp_capsule_token, /* a value that has been put into a token list */
@@ -5029,8 +5028,6 @@ mp_primitive (mp, "step", mp_step_token, 0);
 @:step_}{\&{step} primitive@>;
 mp_primitive (mp, "str", mp_str_op, 0);
 @:str_}{\&{str} primitive@>;
-mp_primitive (mp, "void", mp_void_op, 0);
-@:void_}{\&{void} primitive@>;
 mp_primitive (mp, "tension", mp_tension, 0);
 @:tension_}{\&{tension} primitive@>;
 mp_primitive (mp, "to", mp_to_token, 0);
@@ -5163,9 +5160,6 @@ break;
 case mp_str_op:
 mp_print (mp, "str");
 break;
-case mp_void_op:
-mp_print (mp, "void");
-break;
 case mp_tension:
 mp_print (mp, "tension");
 break;
@@ -23758,25 +23752,6 @@ RESTART:
     mp->cur_exp.type = mp_string_type;
     goto DONE;
     break;
-  case mp_void_op:
-  {
-    /* Convert a suffix to a boolean */
-    mp_value new_expr;
-    memset(&new_expr,0,sizeof(mp_value));
-    new_number(new_expr.data.n);
-    mp_get_x_next (mp);
-    mp_scan_suffix (mp);
-    if (cur_exp_node() == NULL) {
-        set_number_from_boolean (new_expr.data.n, mp_true_code);
-    } else {
-        set_number_from_boolean (new_expr.data.n, mp_false_code);
-    }
-    mp_flush_cur_exp (mp, new_expr);
-    cur_exp_node() = NULL; /* !! do not replace with |set_cur_exp_node()| !! */
-    mp->cur_exp.type = mp_boolean_type;
-    goto DONE;
-  }
-    break;
   case mp_internal_quantity:
     /* Scan an internal numeric quantity */
     /* If an internal quantity appears all by itself on the left of an