… | |
… | |
54 | OP_DEF (0, "eval" , 1, 2 , TST_ANY TST_ENVIRONMENT , OP_PEVAL) |
54 | OP_DEF (0, "eval" , 1, 2 , TST_ANY TST_ENVIRONMENT , OP_PEVAL) |
55 | OP_DEF (0, "apply" , 1, INF_ARG, TST_NONE , OP_PAPPLY) |
55 | OP_DEF (0, "apply" , 1, INF_ARG, TST_NONE , OP_PAPPLY) |
56 | OP_DEF (0, "call-with-current-continuation", 1, 1 , TST_NONE , OP_CONTINUATION) |
56 | OP_DEF (0, "call-with-current-continuation", 1, 1 , TST_NONE , OP_CONTINUATION) |
57 | #if USE_MATH |
57 | #if USE_MATH |
58 | OP_DEF (1, "inexact->exact" , 1, 1 , TST_NUMBER , OP_INEX2EX) |
58 | OP_DEF (1, "inexact->exact" , 1, 1 , TST_NUMBER , OP_INEX2EX) |
|
|
59 | OP_DEF (1, "floor" , 1, 1 , TST_NUMBER , OP_FLOOR) |
|
|
60 | OP_DEF (1, "ceiling" , 1, 1 , TST_NUMBER , OP_CEILING) |
|
|
61 | OP_DEF (1, "truncate" , 1, 1 , TST_NUMBER , OP_TRUNCATE) |
|
|
62 | OP_DEF (1, "round" , 1, 1 , TST_NUMBER , OP_ROUND) |
|
|
63 | OP_DEF (1, "sqrt" , 1, 1 , TST_NUMBER , OP_SQRT) |
59 | OP_DEF (1, "exp" , 1, 1 , TST_NUMBER , OP_EXP) |
64 | OP_DEF (1, "exp" , 1, 1 , TST_NUMBER , OP_EXP) |
60 | OP_DEF (1, "log" , 1, 2 , TST_NUMBER , OP_LOG) |
65 | OP_DEF (1, "log" , 1, 2 , TST_NUMBER , OP_LOG) |
61 | OP_DEF (1, "sin" , 1, 1 , TST_NUMBER , OP_SIN) |
66 | OP_DEF (1, "sin" , 1, 1 , TST_NUMBER , OP_SIN) |
62 | OP_DEF (1, "cos" , 1, 1 , TST_NUMBER , OP_COS) |
67 | OP_DEF (1, "cos" , 1, 1 , TST_NUMBER , OP_COS) |
63 | OP_DEF (1, "tan" , 1, 1 , TST_NUMBER , OP_TAN) |
68 | OP_DEF (1, "tan" , 1, 1 , TST_NUMBER , OP_TAN) |
64 | OP_DEF (1, "asin" , 1, 1 , TST_NUMBER , OP_ASIN) |
69 | OP_DEF (1, "asin" , 1, 1 , TST_NUMBER , OP_ASIN) |
65 | OP_DEF (1, "acos" , 1, 1 , TST_NUMBER , OP_ACOS) |
70 | OP_DEF (1, "acos" , 1, 1 , TST_NUMBER , OP_ACOS) |
66 | OP_DEF (1, "atan" , 1, 2 , TST_NUMBER , OP_ATAN) |
71 | OP_DEF (1, "atan" , 1, 2 , TST_NUMBER , OP_ATAN) |
67 | OP_DEF (1, "sqrt" , 1, 1 , TST_NUMBER , OP_SQRT) |
|
|
68 | OP_DEF (1, "expt" , 2, 2 , TST_NUMBER , OP_EXPT) |
72 | OP_DEF (1, "expt" , 2, 2 , TST_NUMBER , OP_EXPT) |
69 | OP_DEF (1, "floor" , 1, 1 , TST_NUMBER , OP_FLOOR) |
|
|
70 | OP_DEF (1, "ceiling" , 1, 1 , TST_NUMBER , OP_CEILING) |
|
|
71 | OP_DEF (1, "truncate" , 1, 1 , TST_NUMBER , OP_TRUNCATE) |
|
|
72 | OP_DEF (1, "round" , 1, 1 , TST_NUMBER , OP_ROUND) |
|
|
73 | #endif |
73 | #endif |
74 | OP_DEF (1, "+" , 0, INF_ARG, TST_NUMBER , OP_ADD) |
74 | OP_DEF (1, "+" , 0, INF_ARG, TST_NUMBER , OP_ADD) |
75 | OP_DEF (1, "-" , 1, INF_ARG, TST_NUMBER , OP_SUB) |
75 | OP_DEF (1, "-" , 1, INF_ARG, TST_NUMBER , OP_SUB) |
76 | OP_DEF (1, "*" , 0, INF_ARG, TST_NUMBER , OP_MUL) |
76 | OP_DEF (1, "*" , 0, INF_ARG, TST_NUMBER , OP_MUL) |
77 | OP_DEF (1, "/" , 1, INF_ARG, TST_NUMBER , OP_DIV) |
77 | OP_DEF (1, "/" , 1, INF_ARG, TST_NUMBER , OP_DIV) |