ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/microscheme/opdefines.h
(Generate patch)

Comparing cvsroot/microscheme/opdefines.h (file contents):
Revision 1.1 by root, Wed Nov 25 05:02:56 2015 UTC vs.
Revision 1.4 by root, Thu Nov 26 21:32:16 2015 UTC

1OP_DEF (opexe_0, "load", 1, 1, TST_STRING, OP_LOAD) 1OP_DEF (0, "load", 1, 1, TST_STRING, OP_LOAD)
2OP_DEF (opexe_0, 0, 0, 0, 0, OP_T0LVL) 2OP_DEF (0, 0, 0, 0, 0, OP_T0LVL)
3OP_DEF (opexe_0, 0, 0, 0, 0, OP_T1LVL) 3OP_DEF (0, 0, 0, 0, 0, OP_T1LVL)
4OP_DEF (opexe_0, 0, 0, 0, 0, OP_READ_INTERNAL) 4OP_DEF (0, 0, 0, 0, 0, OP_READ_INTERNAL)
5OP_DEF (opexe_0, "gensym", 0, 0, 0, OP_GENSYM) OP_DEF (opexe_0, 0, 0, 0, 0, OP_VALUEPRINT) OP_DEF (opexe_0, 0, 0, 0, 0, OP_EVAL) 5OP_DEF (0, "gensym", 0, 0, 0, OP_GENSYM)
6OP_DEF (0, 0, 0, 0, 0, OP_VALUEPRINT)
7OP_DEF (0, 0, 0, 0, 0, OP_EVAL)
6#if USE_TRACING 8#if USE_TRACING
7OP_DEF (opexe_0, 0, 0, 0, 0, OP_REAL_EVAL) 9OP_DEF (0, 0, 0, 0, 0, OP_REAL_EVAL)
8#endif 10#endif
9OP_DEF (opexe_0, 0, 0, 0, 0, OP_E0ARGS) OP_DEF (opexe_0, 0, 0, 0, 0, OP_E1ARGS) OP_DEF (opexe_0, 0, 0, 0, 0, OP_APPLY) 11OP_DEF (0, 0, 0, 0, 0, OP_E0ARGS)
12OP_DEF (0, 0, 0, 0, 0, OP_E1ARGS)
13OP_DEF (0, 0, 0, 0, 0, OP_APPLY)
10#if USE_TRACING 14#if USE_TRACING
11OP_DEF (opexe_0, 0, 0, 0, 0, OP_REAL_APPLY) OP_DEF (opexe_0, "tracing", 1, 1, TST_NATURAL, OP_TRACING) 15OP_DEF (0, 0, 0, 0, 0, OP_REAL_APPLY)
16OP_DEF (0, "tracing", 1, 1, TST_NATURAL, OP_TRACING)
12#endif 17#endif
13OP_DEF (opexe_0, 0, 0, 0, 0, OP_DOMACRO) 18OP_DEF (0, 0, 0, 0, 0, OP_DOMACRO)
14OP_DEF (opexe_0, 0, 0, 0, 0, OP_LAMBDA) 19OP_DEF (0, 0, 0, 0, 0, OP_LAMBDA)
15OP_DEF (opexe_0, 0, 0, 0, 0, OP_LAMBDA1) 20OP_DEF (0, 0, 0, 0, 0, OP_LAMBDA1)
16OP_DEF (opexe_0, "make-closure", 1, 2, TST_PAIR TST_ENVIRONMENT, OP_MKCLOSURE) 21OP_DEF (0, "make-closure", 1, 2, TST_PAIR TST_ENVIRONMENT, OP_MKCLOSURE)
17OP_DEF (opexe_0, 0, 0, 0, 0, OP_QUOTE) 22OP_DEF (0, 0, 0, 0, 0, OP_QUOTE)
18OP_DEF (opexe_0, 0, 0, 0, 0, OP_DEF0) 23OP_DEF (0, 0, 0, 0, 0, OP_DEF0)
19OP_DEF (opexe_0, 0, 0, 0, 0, OP_DEF1) 24OP_DEF (0, 0, 0, 0, 0, OP_DEF1)
20OP_DEF (opexe_0, "defined?", 1, 2, TST_SYMBOL TST_ENVIRONMENT, OP_DEFP) 25OP_DEF (0, "defined?", 1, 2, TST_SYMBOL TST_ENVIRONMENT, OP_DEFP)
21OP_DEF (opexe_0, 0, 0, 0, 0, OP_BEGIN) 26OP_DEF (0, 0, 0, 0, 0, OP_BEGIN)
22OP_DEF (opexe_0, 0, 0, 0, 0, OP_IF0) 27OP_DEF (0, 0, 0, 0, 0, OP_IF0)
23OP_DEF (opexe_0, 0, 0, 0, 0, OP_IF1) 28OP_DEF (0, 0, 0, 0, 0, OP_IF1)
24OP_DEF (opexe_0, 0, 0, 0, 0, OP_SET0) 29OP_DEF (0, 0, 0, 0, 0, OP_SET0)
25OP_DEF (opexe_0, 0, 0, 0, 0, OP_SET1) 30OP_DEF (0, 0, 0, 0, 0, OP_SET1)
26OP_DEF (opexe_0, 0, 0, 0, 0, OP_LET0) 31OP_DEF (0, 0, 0, 0, 0, OP_LET0)
27OP_DEF (opexe_0, 0, 0, 0, 0, OP_LET1) 32OP_DEF (0, 0, 0, 0, 0, OP_LET1)
28OP_DEF (opexe_0, 0, 0, 0, 0, OP_LET2) 33OP_DEF (0, 0, 0, 0, 0, OP_LET2)
29OP_DEF (opexe_0, 0, 0, 0, 0, OP_LET0AST) 34OP_DEF (0, 0, 0, 0, 0, OP_LET0AST)
30OP_DEF (opexe_0, 0, 0, 0, 0, OP_LET1AST) 35OP_DEF (0, 0, 0, 0, 0, OP_LET1AST)
31OP_DEF (opexe_0, 0, 0, 0, 0, OP_LET2AST) 36OP_DEF (0, 0, 0, 0, 0, OP_LET2AST)
32OP_DEF (opexe_0, 0, 0, 0, 0, OP_LET0REC) 37OP_DEF (0, 0, 0, 0, 0, OP_LET0REC)
33OP_DEF (opexe_0, 0, 0, 0, 0, OP_LET1REC) 38OP_DEF (0, 0, 0, 0, 0, OP_LET1REC)
34OP_DEF (opexe_0, 0, 0, 0, 0, OP_LET2REC) 39OP_DEF (0, 0, 0, 0, 0, OP_LET2REC)
35OP_DEF (opexe_0, 0, 0, 0, 0, OP_COND0) 40OP_DEF (0, 0, 0, 0, 0, OP_COND0)
36OP_DEF (opexe_0, 0, 0, 0, 0, OP_COND1) 41OP_DEF (0, 0, 0, 0, 0, OP_COND1)
37OP_DEF (opexe_0, 0, 0, 0, 0, OP_DELAY) 42OP_DEF (0, 0, 0, 0, 0, OP_DELAY)
38OP_DEF (opexe_0, 0, 0, 0, 0, OP_AND0) 43OP_DEF (0, 0, 0, 0, 0, OP_AND0)
39OP_DEF (opexe_0, 0, 0, 0, 0, OP_AND1) 44OP_DEF (0, 0, 0, 0, 0, OP_AND1)
40OP_DEF (opexe_0, 0, 0, 0, 0, OP_OR0) 45OP_DEF (0, 0, 0, 0, 0, OP_OR0)
41OP_DEF (opexe_0, 0, 0, 0, 0, OP_OR1) 46OP_DEF (0, 0, 0, 0, 0, OP_OR1)
42OP_DEF (opexe_0, 0, 0, 0, 0, OP_C0STREAM) 47OP_DEF (0, 0, 0, 0, 0, OP_C0STREAM)
43OP_DEF (opexe_0, 0, 0, 0, 0, OP_C1STREAM) 48OP_DEF (0, 0, 0, 0, 0, OP_C1STREAM)
44OP_DEF (opexe_0, 0, 0, 0, 0, OP_MACRO0) 49OP_DEF (0, 0, 0, 0, 0, OP_MACRO0)
45OP_DEF (opexe_0, 0, 0, 0, 0, OP_MACRO1) 50OP_DEF (0, 0, 0, 0, 0, OP_MACRO1)
46OP_DEF (opexe_0, 0, 0, 0, 0, OP_CASE0) 51OP_DEF (0, 0, 0, 0, 0, OP_CASE0)
47OP_DEF (opexe_0, 0, 0, 0, 0, OP_CASE1) 52OP_DEF (0, 0, 0, 0, 0, OP_CASE1)
48OP_DEF (opexe_0, 0, 0, 0, 0, OP_CASE2) 53OP_DEF (0, 0, 0, 0, 0, OP_CASE2)
49OP_DEF (opexe_0, "eval", 1, 2, TST_ANY TST_ENVIRONMENT, OP_PEVAL) 54OP_DEF (0, "eval", 1, 2, TST_ANY TST_ENVIRONMENT, OP_PEVAL)
50OP_DEF (opexe_0, "apply", 1, INF_ARG, TST_NONE, OP_PAPPLY) 55OP_DEF (0, "apply", 1, INF_ARG, TST_NONE, OP_PAPPLY)
51OP_DEF (opexe_0, "call-with-current-continuation", 1, 1, TST_NONE, OP_CONTINUATION) 56OP_DEF (0, "call-with-current-continuation", 1, 1, TST_NONE, OP_CONTINUATION)
52#if USE_MATH 57#if USE_MATH
53OP_DEF (opexe_2, "inexact->exact", 1, 1, TST_NUMBER, OP_INEX2EX) 58OP_DEF (2, "inexact->exact", 1, 1, TST_NUMBER, OP_INEX2EX)
54OP_DEF (opexe_2, "exp", 1, 1, TST_NUMBER, OP_EXP) 59OP_DEF (2, "exp", 1, 1, TST_NUMBER, OP_EXP)
55OP_DEF (opexe_2, "log", 1, 1, TST_NUMBER, OP_LOG) 60OP_DEF (2, "log", 1, 1, TST_NUMBER, OP_LOG)
56OP_DEF (opexe_2, "sin", 1, 1, TST_NUMBER, OP_SIN) 61OP_DEF (2, "sin", 1, 1, TST_NUMBER, OP_SIN)
57OP_DEF (opexe_2, "cos", 1, 1, TST_NUMBER, OP_COS) 62OP_DEF (2, "cos", 1, 1, TST_NUMBER, OP_COS)
58OP_DEF (opexe_2, "tan", 1, 1, TST_NUMBER, OP_TAN) 63OP_DEF (2, "tan", 1, 1, TST_NUMBER, OP_TAN)
59OP_DEF (opexe_2, "asin", 1, 1, TST_NUMBER, OP_ASIN) 64OP_DEF (2, "asin", 1, 1, TST_NUMBER, OP_ASIN)
60OP_DEF (opexe_2, "acos", 1, 1, TST_NUMBER, OP_ACOS) 65OP_DEF (2, "acos", 1, 1, TST_NUMBER, OP_ACOS)
61OP_DEF (opexe_2, "atan", 1, 2, TST_NUMBER, OP_ATAN) 66OP_DEF (2, "atan", 1, 2, TST_NUMBER, OP_ATAN)
62OP_DEF (opexe_2, "sqrt", 1, 1, TST_NUMBER, OP_SQRT) 67OP_DEF (2, "sqrt", 1, 1, TST_NUMBER, OP_SQRT)
63OP_DEF (opexe_2, "expt", 2, 2, TST_NUMBER, OP_EXPT) 68OP_DEF (2, "expt", 2, 2, TST_NUMBER, OP_EXPT)
64OP_DEF (opexe_2, "floor", 1, 1, TST_NUMBER, OP_FLOOR) 69OP_DEF (2, "floor", 1, 1, TST_NUMBER, OP_FLOOR)
65OP_DEF (opexe_2, "ceiling", 1, 1, TST_NUMBER, OP_CEILING) 70OP_DEF (2, "ceiling", 1, 1, TST_NUMBER, OP_CEILING)
66OP_DEF (opexe_2, "truncate", 1, 1, TST_NUMBER, OP_TRUNCATE) OP_DEF (opexe_2, "round", 1, 1, TST_NUMBER, OP_ROUND) 71OP_DEF (2, "truncate", 1, 1, TST_NUMBER, OP_TRUNCATE)
72OP_DEF (2, "round", 1, 1, TST_NUMBER, OP_ROUND)
67#endif 73#endif
68OP_DEF (opexe_2, "+", 0, INF_ARG, TST_NUMBER, OP_ADD) 74OP_DEF (2, "+", 0, INF_ARG, TST_NUMBER, OP_ADD)
69OP_DEF (opexe_2, "-", 1, INF_ARG, TST_NUMBER, OP_SUB) 75OP_DEF (2, "-", 1, INF_ARG, TST_NUMBER, OP_SUB)
70OP_DEF (opexe_2, "*", 0, INF_ARG, TST_NUMBER, OP_MUL) 76OP_DEF (2, "*", 0, INF_ARG, TST_NUMBER, OP_MUL)
71OP_DEF (opexe_2, "/", 1, INF_ARG, TST_NUMBER, OP_DIV) 77OP_DEF (2, "/", 1, INF_ARG, TST_NUMBER, OP_DIV)
72OP_DEF (opexe_2, "quotient", 1, INF_ARG, TST_INTEGER, OP_INTDIV) 78OP_DEF (2, "quotient", 1, INF_ARG, TST_INTEGER, OP_INTDIV)
73OP_DEF (opexe_2, "remainder", 2, 2, TST_INTEGER, OP_REM) 79OP_DEF (2, "remainder", 2, 2, TST_INTEGER, OP_REM)
74OP_DEF (opexe_2, "modulo", 2, 2, TST_INTEGER, OP_MOD) 80OP_DEF (2, "modulo", 2, 2, TST_INTEGER, OP_MOD)
75OP_DEF (opexe_2, "car", 1, 1, TST_PAIR, OP_CAR) 81OP_DEF (2, "car", 1, 1, TST_PAIR, OP_CAR)
76OP_DEF (opexe_2, "cdr", 1, 1, TST_PAIR, OP_CDR) 82OP_DEF (2, "cdr", 1, 1, TST_PAIR, OP_CDR)
77OP_DEF (opexe_2, "cons", 2, 2, TST_NONE, OP_CONS) 83OP_DEF (2, "cons", 2, 2, TST_NONE, OP_CONS)
78OP_DEF (opexe_2, "set-car!", 2, 2, TST_PAIR TST_ANY, OP_SETCAR) 84OP_DEF (2, "set-car!", 2, 2, TST_PAIR TST_ANY, OP_SETCAR)
79OP_DEF (opexe_2, "set-cdr!", 2, 2, TST_PAIR TST_ANY, OP_SETCDR) 85OP_DEF (2, "set-cdr!", 2, 2, TST_PAIR TST_ANY, OP_SETCDR)
80OP_DEF (opexe_2, "char->integer", 1, 1, TST_CHAR, OP_CHAR2INT) 86OP_DEF (2, "char->integer", 1, 1, TST_CHAR, OP_CHAR2INT)
81OP_DEF (opexe_2, "integer->char", 1, 1, TST_NATURAL, OP_INT2CHAR) 87OP_DEF (2, "integer->char", 1, 1, TST_NATURAL, OP_INT2CHAR)
82OP_DEF (opexe_2, "char-upcase", 1, 1, TST_CHAR, OP_CHARUPCASE) 88OP_DEF (2, "char-upcase", 1, 1, TST_CHAR, OP_CHARUPCASE)
83OP_DEF (opexe_2, "char-downcase", 1, 1, TST_CHAR, OP_CHARDNCASE) 89OP_DEF (2, "char-downcase", 1, 1, TST_CHAR, OP_CHARDNCASE)
84OP_DEF (opexe_2, "symbol->string", 1, 1, TST_SYMBOL, OP_SYM2STR) 90OP_DEF (2, "symbol->string", 1, 1, TST_SYMBOL, OP_SYM2STR)
85OP_DEF (opexe_2, "atom->string", 1, 2, TST_ANY TST_NATURAL, OP_ATOM2STR) 91OP_DEF (2, "atom->string", 1, 2, TST_ANY TST_NATURAL, OP_ATOM2STR)
86OP_DEF (opexe_2, "string->symbol", 1, 1, TST_STRING, OP_STR2SYM) 92OP_DEF (2, "string->symbol", 1, 1, TST_STRING, OP_STR2SYM)
87OP_DEF (opexe_2, "string->atom", 1, 2, TST_STRING TST_NATURAL, OP_STR2ATOM) 93OP_DEF (2, "string->atom", 1, 2, TST_STRING TST_NATURAL, OP_STR2ATOM)
88OP_DEF (opexe_2, "make-string", 1, 2, TST_NATURAL TST_CHAR, OP_MKSTRING) 94OP_DEF (2, "make-string", 1, 2, TST_NATURAL TST_CHAR, OP_MKSTRING)
89OP_DEF (opexe_2, "string-length", 1, 1, TST_STRING, OP_STRLEN) 95OP_DEF (2, "string-length", 1, 1, TST_STRING, OP_STRLEN)
90OP_DEF (opexe_2, "string-ref", 2, 2, TST_STRING TST_NATURAL, OP_STRREF) 96OP_DEF (2, "string-ref", 2, 2, TST_STRING TST_NATURAL, OP_STRREF)
91OP_DEF (opexe_2, "string-set!", 3, 3, TST_STRING TST_NATURAL TST_CHAR, OP_STRSET) 97OP_DEF (2, "string-set!", 3, 3, TST_STRING TST_NATURAL TST_CHAR, OP_STRSET)
92OP_DEF (opexe_2, "string-append", 0, INF_ARG, TST_STRING, OP_STRAPPEND) 98OP_DEF (2, "string-append", 0, INF_ARG, TST_STRING, OP_STRAPPEND)
93OP_DEF (opexe_2, "substring", 2, 3, TST_STRING TST_NATURAL, OP_SUBSTR) 99OP_DEF (2, "substring", 2, 3, TST_STRING TST_NATURAL, OP_SUBSTR)
94OP_DEF (opexe_2, "vector", 0, INF_ARG, TST_NONE, OP_VECTOR) 100OP_DEF (2, "vector", 0, INF_ARG, TST_NONE, OP_VECTOR)
95OP_DEF (opexe_2, "make-vector", 1, 2, TST_NATURAL TST_ANY, OP_MKVECTOR) 101OP_DEF (2, "make-vector", 1, 2, TST_NATURAL TST_ANY, OP_MKVECTOR)
96OP_DEF (opexe_2, "vector-length", 1, 1, TST_VECTOR, OP_VECLEN) 102OP_DEF (2, "vector-length", 1, 1, TST_VECTOR, OP_VECLEN)
97OP_DEF (opexe_2, "vector-ref", 2, 2, TST_VECTOR TST_NATURAL, OP_VECREF) 103OP_DEF (2, "vector-ref", 2, 2, TST_VECTOR TST_NATURAL, OP_VECREF)
98OP_DEF (opexe_2, "vector-set!", 3, 3, TST_VECTOR TST_NATURAL TST_ANY, OP_VECSET) 104OP_DEF (2, "vector-set!", 3, 3, TST_VECTOR TST_NATURAL TST_ANY, OP_VECSET)
105OP_DEF (r, "=", 2, INF_ARG, TST_NUMBER, OP_NUMEQ)
106OP_DEF (r, "<", 2, INF_ARG, TST_NUMBER, OP_LESS)
107OP_DEF (r, ">", 2, INF_ARG, TST_NUMBER, OP_GRE)
108OP_DEF (r, "<=", 2, INF_ARG, TST_NUMBER, OP_LEQ)
109OP_DEF (r, ">=", 2, INF_ARG, TST_NUMBER, OP_GEQ)
99OP_DEF (opexe_3, "not", 1, 1, TST_NONE, OP_NOT) 110OP_DEF (3, "not", 1, 1, TST_NONE, OP_NOT)
100OP_DEF (opexe_3, "boolean?", 1, 1, TST_NONE, OP_BOOLP) 111OP_DEF (3, "boolean?", 1, 1, TST_NONE, OP_BOOLP)
101OP_DEF (opexe_3, "eof-object?", 1, 1, TST_NONE, OP_EOFOBJP) 112OP_DEF (3, "eof-object?", 1, 1, TST_NONE, OP_EOFOBJP)
102OP_DEF (opexe_3, "null?", 1, 1, TST_NONE, OP_NULLP) 113OP_DEF (3, "null?", 1, 1, TST_NONE, OP_NULLP)
103OP_DEF (opexe_3, "=", 2, INF_ARG, TST_NUMBER, OP_NUMEQ)
104OP_DEF (opexe_3, "<", 2, INF_ARG, TST_NUMBER, OP_LESS)
105OP_DEF (opexe_3, ">", 2, INF_ARG, TST_NUMBER, OP_GRE)
106OP_DEF (opexe_3, "<=", 2, INF_ARG, TST_NUMBER, OP_LEQ)
107OP_DEF (opexe_3, ">=", 2, INF_ARG, TST_NUMBER, OP_GEQ)
108OP_DEF (opexe_3, "symbol?", 1, 1, TST_ANY, OP_SYMBOLP) 114OP_DEF (3, "symbol?", 1, 1, TST_ANY, OP_SYMBOLP)
109OP_DEF (opexe_3, "number?", 1, 1, TST_ANY, OP_NUMBERP) 115OP_DEF (3, "number?", 1, 1, TST_ANY, OP_NUMBERP)
110OP_DEF (opexe_3, "string?", 1, 1, TST_ANY, OP_STRINGP) 116OP_DEF (3, "string?", 1, 1, TST_ANY, OP_STRINGP)
111OP_DEF (opexe_3, "integer?", 1, 1, TST_ANY, OP_INTEGERP) 117OP_DEF (3, "integer?", 1, 1, TST_ANY, OP_INTEGERP)
112OP_DEF (opexe_3, "real?", 1, 1, TST_ANY, OP_REALP) OP_DEF (opexe_3, "char?", 1, 1, TST_ANY, OP_CHARP) 118OP_DEF (3, "real?", 1, 1, TST_ANY, OP_REALP)
119OP_DEF (3, "char?", 1, 1, TST_ANY, OP_CHARP)
113#if USE_CHAR_CLASSIFIERS 120#if USE_CHAR_CLASSIFIERS
114OP_DEF (opexe_3, "char-alphabetic?", 1, 1, TST_CHAR, OP_CHARAP) 121OP_DEF (3, "char-alphabetic?", 1, 1, TST_CHAR, OP_CHARAP)
115OP_DEF (opexe_3, "char-numeric?", 1, 1, TST_CHAR, OP_CHARNP) 122OP_DEF (3, "char-numeric?", 1, 1, TST_CHAR, OP_CHARNP)
116OP_DEF (opexe_3, "char-whitespace?", 1, 1, TST_CHAR, OP_CHARWP) 123OP_DEF (3, "char-whitespace?", 1, 1, TST_CHAR, OP_CHARWP)
117OP_DEF (opexe_3, "char-upper-case?", 1, 1, TST_CHAR, OP_CHARUP) OP_DEF (opexe_3, "char-lower-case?", 1, 1, TST_CHAR, OP_CHARLP) 124OP_DEF (3, "char-upper-case?", 1, 1, TST_CHAR, OP_CHARUP)
125OP_DEF (3, "char-lower-case?", 1, 1, TST_CHAR, OP_CHARLP)
118#endif 126#endif
119#if USE_PORTS 127#if USE_PORTS
120OP_DEF (opexe_3, "port?", 1, 1, TST_ANY, OP_PORTP) 128OP_DEF (3, "port?", 1, 1, TST_ANY, OP_PORTP)
121OP_DEF (opexe_3, "input-port?", 1, 1, TST_ANY, OP_INPORTP) OP_DEF (opexe_3, "output-port?", 1, 1, TST_ANY, OP_OUTPORTP) 129OP_DEF (3, "input-port?", 1, 1, TST_ANY, OP_INPORTP)
130OP_DEF (3, "output-port?", 1, 1, TST_ANY, OP_OUTPORTP)
122#endif 131#endif
123OP_DEF (opexe_3, "procedure?", 1, 1, TST_ANY, OP_PROCP) 132OP_DEF (3, "procedure?", 1, 1, TST_ANY, OP_PROCP)
124OP_DEF (opexe_3, "pair?", 1, 1, TST_ANY, OP_PAIRP) 133OP_DEF (3, "pair?", 1, 1, TST_ANY, OP_PAIRP)
125OP_DEF (opexe_3, "list?", 1, 1, TST_ANY, OP_LISTP) 134OP_DEF (3, "list?", 1, 1, TST_ANY, OP_LISTP)
126OP_DEF (opexe_3, "environment?", 1, 1, TST_ANY, OP_ENVP) 135OP_DEF (3, "environment?", 1, 1, TST_ANY, OP_ENVP)
127OP_DEF (opexe_3, "vector?", 1, 1, TST_ANY, OP_VECTORP) 136OP_DEF (3, "vector?", 1, 1, TST_ANY, OP_VECTORP)
128OP_DEF (opexe_3, "eq?", 2, 2, TST_ANY, OP_EQ) 137OP_DEF (3, "eq?", 2, 2, TST_ANY, OP_EQ)
129OP_DEF (opexe_3, "eqv?", 2, 2, TST_ANY, OP_EQV) 138OP_DEF (3, "eqv?", 2, 2, TST_ANY, OP_EQV)
130OP_DEF (opexe_4, "force", 1, 1, TST_ANY, OP_FORCE) OP_DEF (opexe_4, 0, 0, 0, 0, OP_SAVE_FORCED) 139OP_DEF (4, "force", 1, 1, TST_ANY, OP_FORCE)
140OP_DEF (4, 0, 0, 0, 0, OP_SAVE_FORCED)
131#if USE_PORTS 141#if USE_PORTS
132OP_DEF (opexe_4, "write", 1, 2, TST_ANY TST_OUTPORT, OP_WRITE) 142OP_DEF (4, "write", 1, 2, TST_ANY TST_OUTPORT, OP_WRITE)
133OP_DEF (opexe_4, "write-char", 1, 2, TST_CHAR TST_OUTPORT, OP_WRITE_CHAR) 143OP_DEF (4, "write-char", 1, 2, TST_CHAR TST_OUTPORT, OP_WRITE_CHAR)
134OP_DEF (opexe_4, "display", 1, 2, TST_ANY TST_OUTPORT, OP_DISPLAY) OP_DEF (opexe_4, "newline", 0, 1, TST_OUTPORT, OP_NEWLINE) 144OP_DEF (4, "display", 1, 2, TST_ANY TST_OUTPORT, OP_DISPLAY)
145OP_DEF (4, "newline", 0, 1, TST_OUTPORT, OP_NEWLINE)
135#endif 146#endif
136OP_DEF (opexe_4, "error", 1, INF_ARG, TST_NONE, OP_ERR0) 147OP_DEF (4, "error", 1, INF_ARG, TST_NONE, OP_ERR0)
137OP_DEF (opexe_4, 0, 0, 0, 0, OP_ERR1) 148OP_DEF (4, 0, 0, 0, 0, OP_ERR1)
138OP_DEF (opexe_4, "reverse", 1, 1, TST_LIST, OP_REVERSE) 149OP_DEF (4, "reverse", 1, 1, TST_LIST, OP_REVERSE)
139OP_DEF (opexe_4, "list*", 1, INF_ARG, TST_NONE, OP_LIST_STAR) OP_DEF (opexe_4, "append", 0, INF_ARG, TST_NONE, OP_APPEND) 150OP_DEF (4, "list*", 1, INF_ARG, TST_NONE, OP_LIST_STAR)
151OP_DEF (4, "append", 0, INF_ARG, TST_NONE, OP_APPEND)
140#if USE_PLIST 152#if USE_PLIST
141OP_DEF (opexe_4, "put", 3, 3, TST_NONE, OP_PUT) OP_DEF (opexe_4, "get", 2, 2, TST_NONE, OP_GET) 153OP_DEF (4, "put", 3, 3, TST_NONE, OP_PUT)
154OP_DEF (4, "get", 2, 2, TST_NONE, OP_GET)
142#endif 155#endif
143OP_DEF (opexe_4, "quit", 0, 1, TST_NUMBER, OP_QUIT) 156OP_DEF (4, "quit", 0, 1, TST_NUMBER, OP_QUIT)
144OP_DEF (opexe_4, "gc", 0, 0, 0, OP_GC) 157OP_DEF (4, "gc", 0, 0, 0, OP_GC)
145OP_DEF (opexe_4, "gc-verbose", 0, 1, TST_NONE, OP_GCVERB) 158OP_DEF (4, "gc-verbose", 0, 1, TST_NONE, OP_GCVERB)
146OP_DEF (opexe_4, "new-segment", 0, 1, TST_NUMBER, OP_NEWSEGMENT) OP_DEF (opexe_4, "oblist", 0, 0, 0, OP_OBLIST) 159OP_DEF (4, "new-segment", 0, 1, TST_NUMBER, OP_NEWSEGMENT)
160OP_DEF (4, "oblist", 0, 0, 0, OP_OBLIST)
147#if USE_PORTS 161#if USE_PORTS
148OP_DEF (opexe_4, "current-input-port", 0, 0, 0, OP_CURR_INPORT) 162OP_DEF (4, "current-input-port", 0, 0, 0, OP_CURR_INPORT)
149OP_DEF (opexe_4, "current-output-port", 0, 0, 0, OP_CURR_OUTPORT) 163OP_DEF (4, "current-output-port", 0, 0, 0, OP_CURR_OUTPORT)
150OP_DEF (opexe_4, "open-input-file", 1, 1, TST_STRING, OP_OPEN_INFILE) 164OP_DEF (4, "open-input-file", 1, 1, TST_STRING, OP_OPEN_INFILE)
151OP_DEF (opexe_4, "open-output-file", 1, 1, TST_STRING, OP_OPEN_OUTFILE) 165OP_DEF (4, "open-output-file", 1, 1, TST_STRING, OP_OPEN_OUTFILE)
152OP_DEF (opexe_4, "open-input-output-file", 1, 1, TST_STRING, OP_OPEN_INOUTFILE) 166OP_DEF (4, "open-input-output-file", 1, 1, TST_STRING, OP_OPEN_INOUTFILE)
153# if USE_STRING_PORTS 167# if USE_STRING_PORTS
154OP_DEF (opexe_4, "open-input-string", 1, 1, TST_STRING, OP_OPEN_INSTRING) 168OP_DEF (4, "open-input-string", 1, 1, TST_STRING, OP_OPEN_INSTRING)
155OP_DEF (opexe_4, "open-input-output-string", 1, 1, TST_STRING, OP_OPEN_INOUTSTRING) 169OP_DEF (4, "open-input-output-string", 1, 1, TST_STRING, OP_OPEN_INOUTSTRING)
156OP_DEF (opexe_4, "open-output-string", 0, 1, TST_STRING, OP_OPEN_OUTSTRING) 170OP_DEF (4, "open-output-string", 0, 1, TST_STRING, OP_OPEN_OUTSTRING)
157OP_DEF (opexe_4, "get-output-string", 1, 1, TST_OUTPORT, OP_GET_OUTSTRING) 171OP_DEF (4, "get-output-string", 1, 1, TST_OUTPORT, OP_GET_OUTSTRING)
158# endif 172# endif
159OP_DEF (opexe_4, "close-input-port", 1, 1, TST_INPORT, OP_CLOSE_INPORT) 173OP_DEF (4, "close-input-port", 1, 1, TST_INPORT, OP_CLOSE_INPORT)
160OP_DEF (opexe_4, "close-output-port", 1, 1, TST_OUTPORT, OP_CLOSE_OUTPORT) 174OP_DEF (4, "close-output-port", 1, 1, TST_OUTPORT, OP_CLOSE_OUTPORT)
161#endif 175#endif
162OP_DEF (opexe_4, "interaction-environment", 0, 0, 0, OP_INT_ENV) OP_DEF (opexe_4, "current-environment", 0, 0, 0, OP_CURR_ENV) 176OP_DEF (4, "interaction-environment", 0, 0, 0, OP_INT_ENV)
177OP_DEF (4, "current-environment", 0, 0, 0, OP_CURR_ENV)
163#if USE_PORTS 178#if USE_PORTS
164OP_DEF (opexe_5, "read", 0, 1, TST_INPORT, OP_READ) 179OP_DEF (5, "read", 0, 1, TST_INPORT, OP_READ)
165OP_DEF (opexe_5, "read-char", 0, 1, TST_INPORT, OP_READ_CHAR) 180OP_DEF (5, "read-char", 0, 1, TST_INPORT, OP_READ_CHAR)
166OP_DEF (opexe_5, "peek-char", 0, 1, TST_INPORT, OP_PEEK_CHAR) 181OP_DEF (5, "peek-char", 0, 1, TST_INPORT, OP_PEEK_CHAR)
167OP_DEF (opexe_5, "char-ready?", 0, 1, TST_INPORT, OP_CHAR_READY) 182OP_DEF (5, "char-ready?", 0, 1, TST_INPORT, OP_CHAR_READY)
168OP_DEF (opexe_5, "set-input-port", 1, 1, TST_INPORT, OP_SET_INPORT) OP_DEF (opexe_5, "set-output-port", 1, 1, TST_OUTPORT, OP_SET_OUTPORT) 183OP_DEF (5, "set-input-port", 1, 1, TST_INPORT, OP_SET_INPORT)
184OP_DEF (5, "set-output-port", 1, 1, TST_OUTPORT, OP_SET_OUTPORT)
169#endif 185#endif
170OP_DEF (opexe_5, 0, 0, 0, 0, OP_RDSEXPR) 186OP_DEF (5, 0, 0, 0, 0, OP_RDSEXPR)
171OP_DEF (opexe_5, 0, 0, 0, 0, OP_RDLIST) 187OP_DEF (5, 0, 0, 0, 0, OP_RDLIST)
172OP_DEF (opexe_5, 0, 0, 0, 0, OP_RDDOT) 188OP_DEF (5, 0, 0, 0, 0, OP_RDDOT)
173OP_DEF (opexe_5, 0, 0, 0, 0, OP_RDQUOTE) 189OP_DEF (5, 0, 0, 0, 0, OP_RDQUOTE)
174OP_DEF (opexe_5, 0, 0, 0, 0, OP_RDQQUOTE) 190OP_DEF (5, 0, 0, 0, 0, OP_RDQQUOTE)
175OP_DEF (opexe_5, 0, 0, 0, 0, OP_RDQQUOTEVEC) 191OP_DEF (5, 0, 0, 0, 0, OP_RDQQUOTEVEC)
176OP_DEF (opexe_5, 0, 0, 0, 0, OP_RDUNQUOTE) 192OP_DEF (5, 0, 0, 0, 0, OP_RDUNQUOTE)
177OP_DEF (opexe_5, 0, 0, 0, 0, OP_RDUQTSP) 193OP_DEF (5, 0, 0, 0, 0, OP_RDUQTSP)
178OP_DEF (opexe_5, 0, 0, 0, 0, OP_RDVEC) 194OP_DEF (5, 0, 0, 0, 0, OP_RDVEC)
179OP_DEF (opexe_5, 0, 0, 0, 0, OP_P0LIST) 195OP_DEF (5, 0, 0, 0, 0, OP_P0LIST)
180OP_DEF (opexe_5, 0, 0, 0, 0, OP_P1LIST) 196OP_DEF (5, 0, 0, 0, 0, OP_P1LIST)
181OP_DEF (opexe_5, 0, 0, 0, 0, OP_PVECFROM) 197OP_DEF (5, 0, 0, 0, 0, OP_PVECFROM)
182OP_DEF (opexe_6, "length", 1, 1, TST_LIST, OP_LIST_LENGTH) 198OP_DEF (6, "length", 1, 1, TST_LIST, OP_LIST_LENGTH)
183OP_DEF (opexe_6, "assq", 2, 2, TST_NONE, OP_ASSQ) 199OP_DEF (6, "assq", 2, 2, TST_NONE, OP_ASSQ)
184OP_DEF (opexe_6, "get-closure-code", 1, 1, TST_NONE, OP_GET_CLOSURE) 200OP_DEF (6, "get-closure-code", 1, 1, TST_NONE, OP_GET_CLOSURE)
185OP_DEF (opexe_6, "closure?", 1, 1, TST_NONE, OP_CLOSUREP) OP_DEF (opexe_6, "macro?", 1, 1, TST_NONE, OP_MACROP) 201OP_DEF (6, "closure?", 1, 1, TST_NONE, OP_CLOSUREP)
186#undef OP_DEF 202OP_DEF (6, "macro?", 1, 1, TST_NONE, OP_MACROP)

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines