… | |
… | |
94 | OP_DEF (opexe_2, "vector", 0, INF_ARG, TST_NONE, OP_VECTOR) |
94 | OP_DEF (opexe_2, "vector", 0, INF_ARG, TST_NONE, OP_VECTOR) |
95 | OP_DEF (opexe_2, "make-vector", 1, 2, TST_NATURAL TST_ANY, OP_MKVECTOR) |
95 | OP_DEF (opexe_2, "make-vector", 1, 2, TST_NATURAL TST_ANY, OP_MKVECTOR) |
96 | OP_DEF (opexe_2, "vector-length", 1, 1, TST_VECTOR, OP_VECLEN) |
96 | OP_DEF (opexe_2, "vector-length", 1, 1, TST_VECTOR, OP_VECLEN) |
97 | OP_DEF (opexe_2, "vector-ref", 2, 2, TST_VECTOR TST_NATURAL, OP_VECREF) |
97 | OP_DEF (opexe_2, "vector-ref", 2, 2, TST_VECTOR TST_NATURAL, OP_VECREF) |
98 | OP_DEF (opexe_2, "vector-set!", 3, 3, TST_VECTOR TST_NATURAL TST_ANY, OP_VECSET) |
98 | OP_DEF (opexe_2, "vector-set!", 3, 3, TST_VECTOR TST_NATURAL TST_ANY, OP_VECSET) |
|
|
99 | OP_DEF (opexe_r, "=", 2, INF_ARG, TST_NUMBER, OP_NUMEQ) |
|
|
100 | OP_DEF (opexe_r, "<", 2, INF_ARG, TST_NUMBER, OP_LESS) |
|
|
101 | OP_DEF (opexe_r, ">", 2, INF_ARG, TST_NUMBER, OP_GRE) |
|
|
102 | OP_DEF (opexe_r, "<=", 2, INF_ARG, TST_NUMBER, OP_LEQ) |
|
|
103 | OP_DEF (opexe_r, ">=", 2, INF_ARG, TST_NUMBER, OP_GEQ) |
99 | OP_DEF (opexe_3, "not", 1, 1, TST_NONE, OP_NOT) |
104 | OP_DEF (opexe_3, "not", 1, 1, TST_NONE, OP_NOT) |
100 | OP_DEF (opexe_3, "boolean?", 1, 1, TST_NONE, OP_BOOLP) |
105 | OP_DEF (opexe_3, "boolean?", 1, 1, TST_NONE, OP_BOOLP) |
101 | OP_DEF (opexe_3, "eof-object?", 1, 1, TST_NONE, OP_EOFOBJP) |
106 | OP_DEF (opexe_3, "eof-object?", 1, 1, TST_NONE, OP_EOFOBJP) |
102 | OP_DEF (opexe_3, "null?", 1, 1, TST_NONE, OP_NULLP) |
107 | OP_DEF (opexe_3, "null?", 1, 1, TST_NONE, OP_NULLP) |
103 | OP_DEF (opexe_3, "=", 2, INF_ARG, TST_NUMBER, OP_NUMEQ) |
|
|
104 | OP_DEF (opexe_3, "<", 2, INF_ARG, TST_NUMBER, OP_LESS) |
|
|
105 | OP_DEF (opexe_3, ">", 2, INF_ARG, TST_NUMBER, OP_GRE) |
|
|
106 | OP_DEF (opexe_3, "<=", 2, INF_ARG, TST_NUMBER, OP_LEQ) |
|
|
107 | OP_DEF (opexe_3, ">=", 2, INF_ARG, TST_NUMBER, OP_GEQ) |
|
|
108 | OP_DEF (opexe_3, "symbol?", 1, 1, TST_ANY, OP_SYMBOLP) |
108 | OP_DEF (opexe_3, "symbol?", 1, 1, TST_ANY, OP_SYMBOLP) |
109 | OP_DEF (opexe_3, "number?", 1, 1, TST_ANY, OP_NUMBERP) |
109 | OP_DEF (opexe_3, "number?", 1, 1, TST_ANY, OP_NUMBERP) |
110 | OP_DEF (opexe_3, "string?", 1, 1, TST_ANY, OP_STRINGP) |
110 | OP_DEF (opexe_3, "string?", 1, 1, TST_ANY, OP_STRINGP) |
111 | OP_DEF (opexe_3, "integer?", 1, 1, TST_ANY, OP_INTEGERP) |
111 | OP_DEF (opexe_3, "integer?", 1, 1, TST_ANY, OP_INTEGERP) |
112 | OP_DEF (opexe_3, "real?", 1, 1, TST_ANY, OP_REALP) OP_DEF (opexe_3, "char?", 1, 1, TST_ANY, OP_CHARP) |
112 | OP_DEF (opexe_3, "real?", 1, 1, TST_ANY, OP_REALP) OP_DEF (opexe_3, "char?", 1, 1, TST_ANY, OP_CHARP) |