… | |
… | |
167 | OP_DEF (3, "eq?" , 2, 2 , TST_ANY , OP_EQ) |
167 | OP_DEF (3, "eq?" , 2, 2 , TST_ANY , OP_EQ) |
168 | OP_DEF (3, "eqv?" , 2, 2 , TST_ANY , OP_EQV) |
168 | OP_DEF (3, "eqv?" , 2, 2 , TST_ANY , OP_EQV) |
169 | OP_DEF (4, "force" , 1, 1 , TST_ANY , OP_FORCE) |
169 | OP_DEF (4, "force" , 1, 1 , TST_ANY , OP_FORCE) |
170 | OP_DEF (4, UNNAMED_OP , 0, 0 , 0 , OP_SAVE_FORCED) |
170 | OP_DEF (4, UNNAMED_OP , 0, 0 , 0 , OP_SAVE_FORCED) |
171 | #if USE_PORTS |
171 | #if USE_PORTS |
|
|
172 | OP_DEF (4, "eof-object" , 0, 0 , 0 , OP_EOF_OBJECT) |
172 | OP_DEF (4, "write" , 1, 2 , TST_ANY TST_OUTPORT , OP_WRITE) |
173 | OP_DEF (4, "write" , 1, 2 , TST_ANY TST_OUTPORT , OP_WRITE) |
173 | OP_DEF (4, "write-char" , 1, 2 , TST_CHAR TST_OUTPORT , OP_WRITE_CHAR) |
174 | OP_DEF (4, "write-char" , 1, 2 , TST_CHAR TST_OUTPORT , OP_WRITE_CHAR) |
174 | OP_DEF (4, "display" , 1, 2 , TST_ANY TST_OUTPORT , OP_DISPLAY) |
175 | OP_DEF (4, "display" , 1, 2 , TST_ANY TST_OUTPORT , OP_DISPLAY) |
175 | OP_DEF (4, "newline" , 0, 1 , TST_OUTPORT , OP_NEWLINE) |
176 | OP_DEF (4, "newline" , 0, 1 , TST_OUTPORT , OP_NEWLINE) |
176 | #endif |
177 | #endif |