CHAR: notation for literal chars, native parser work

[factor.git] / native / primitives.c

diff --git a/native/primitives.c b/native/primitives.c
index 401480f9d587ab4475c371dc3250579acb16b94d..fc5aa4ea8e1c4f865468b4104af59412d37a7dd3 100644 (file)
--- a/native/primitives.c
+++ b/native/primitives.c
@@ -42,44 +42,48 @@ XT primitives[] = {
        primitive_mod,                          /* 38 */
        primitive_divmod,                       /* 39 */
        primitive_and,                          /* 40 */
-       primitive_xor,                          /* 41 */
-       primitive_less,                         /* 42 */
-       primitive_lesseq,                       /* 43 */
-       primitive_greater,                      /* 44 */
-       primitive_greatereq,                    /* 45 */
-       primitive_wordp,                        /* 46 */
-       primitive_word,                         /* 47 */
-       primitive_word_primitive,               /* 48 */
-       primitive_set_word_primitive,           /* 49 */
-       primitive_word_parameter,               /* 50 */
-       primitive_set_word_parameter,           /* 51 */
-       primitive_word_plist,                   /* 52 */
-       primitive_set_word_plist,               /* 53 */
-       primitive_drop,                         /* 54 */
-       primitive_dup,                          /* 55 */
-       primitive_swap,                         /* 56 */
-       primitive_over,                         /* 57 */
-       primitive_pick,                         /* 58 */
-       primitive_nip,                          /* 59 */
-       primitive_tuck,                         /* 60 */
-       primitive_rot,                          /* 61 */
-       primitive_to_r,                         /* 62 */
-       primitive_from_r,                       /* 63 */
-       primitive_eq,                           /* 64 */
-       primitive_getenv,                       /* 65 */
-       primitive_setenv,                       /* 66 */
-       primitive_open_file,                    /* 67 */
-       primitive_read_line_8,                  /* 68 */
-       primitive_write_8,                      /* 69 */
-       primitive_close,                        /* 70 */
-       primitive_gc,                           /* 71 */
-       primitive_save_image,                   /* 72 */
-       primitive_datastack,                    /* 73 */
-       primitive_callstack,                    /* 74 */
-       primitive_set_datastack,                /* 75 */
-       primitive_set_callstack,                /* 76 */
-       primitive_handlep,                      /* 77 */
-       primitive_exit                          /* 78 */
+       primitive_or,                           /* 41 */
+       primitive_xor,                          /* 42 */
+       primitive_not,                          /* 43 */
+       primitive_shiftleft,                    /* 44 */
+       primitive_shiftright,                   /* 45 */
+       primitive_less,                         /* 46 */
+       primitive_lesseq,                       /* 47 */
+       primitive_greater,                      /* 48 */
+       primitive_greatereq,                    /* 49 */
+       primitive_wordp,                        /* 50 */
+       primitive_word,                         /* 51 */
+       primitive_word_primitive,               /* 52 */
+       primitive_set_word_primitive,           /* 53 */
+       primitive_word_parameter,               /* 54 */
+       primitive_set_word_parameter,           /* 55 */
+       primitive_word_plist,                   /* 56 */
+       primitive_set_word_plist,               /* 57 */
+       primitive_drop,                         /* 58 */
+       primitive_dup,                          /* 59 */
+       primitive_swap,                         /* 60 */
+       primitive_over,                         /* 61 */
+       primitive_pick,                         /* 62 */
+       primitive_nip,                          /* 63 */
+       primitive_tuck,                         /* 64 */
+       primitive_rot,                          /* 65 */
+       primitive_to_r,                         /* 66 */
+       primitive_from_r,                       /* 67 */
+       primitive_eq,                           /* 68 */
+       primitive_getenv,                       /* 69 */
+       primitive_setenv,                       /* 70 */
+       primitive_open_file,                    /* 71 */
+       primitive_read_line_8,                  /* 72 */
+       primitive_write_8,                      /* 73 */
+       primitive_close,                        /* 74 */
+       primitive_gc,                           /* 75 */
+       primitive_save_image,                   /* 76 */
+       primitive_datastack,                    /* 77 */
+       primitive_callstack,                    /* 78 */
+       primitive_set_datastack,                /* 79 */
+       primitive_set_callstack,                /* 80 */
+       primitive_handlep,                      /* 81 */
+       primitive_exit                          /* 82 */
 };
 
 CELL primitive_to_xt(CELL primitive)