Fix for SourceForge bug #2826594 (allow reverse to work on empty list).

From SVN version 64 of official version of TinyScheme.

Also removed obsolete op code from opdefines.h table.
This commit is contained in:
Kevin Cozens 2011-01-16 16:26:57 -05:00
parent 73f9f652bc
commit f571ebf247
1 changed files with 1 additions and 2 deletions

View File

@ -132,7 +132,6 @@
_OP_DEF(opexe_3, "list?", 1, 1, TST_ANY, OP_LISTP ) _OP_DEF(opexe_3, "list?", 1, 1, TST_ANY, OP_LISTP )
_OP_DEF(opexe_3, "environment?", 1, 1, TST_ANY, OP_ENVP ) _OP_DEF(opexe_3, "environment?", 1, 1, TST_ANY, OP_ENVP )
_OP_DEF(opexe_3, "vector?", 1, 1, TST_ANY, OP_VECTORP ) _OP_DEF(opexe_3, "vector?", 1, 1, TST_ANY, OP_VECTORP )
_OP_DEF(opexe_3, "array?", 1, 1, TST_ANY, OP_ARRAYP )
_OP_DEF(opexe_3, "eq?", 2, 2, TST_ANY, OP_EQ ) _OP_DEF(opexe_3, "eq?", 2, 2, TST_ANY, OP_EQ )
_OP_DEF(opexe_3, "eqv?", 2, 2, TST_ANY, OP_EQV ) _OP_DEF(opexe_3, "eqv?", 2, 2, TST_ANY, OP_EQV )
_OP_DEF(opexe_4, "force", 1, 1, TST_ANY, OP_FORCE ) _OP_DEF(opexe_4, "force", 1, 1, TST_ANY, OP_FORCE )
@ -143,7 +142,7 @@
_OP_DEF(opexe_4, "newline", 0, 1, TST_OUTPORT, OP_NEWLINE ) _OP_DEF(opexe_4, "newline", 0, 1, TST_OUTPORT, OP_NEWLINE )
_OP_DEF(opexe_4, "error", 1, INF_ARG, TST_NONE, OP_ERR0 ) _OP_DEF(opexe_4, "error", 1, INF_ARG, TST_NONE, OP_ERR0 )
_OP_DEF(opexe_4, 0, 0, 0, 0, OP_ERR1 ) _OP_DEF(opexe_4, 0, 0, 0, 0, OP_ERR1 )
_OP_DEF(opexe_4, "reverse", 1, 1, TST_PAIR, OP_REVERSE ) _OP_DEF(opexe_4, "reverse", 1, 1, TST_LIST, OP_REVERSE )
_OP_DEF(opexe_4, "list*", 1, INF_ARG, TST_NONE, OP_LIST_STAR ) _OP_DEF(opexe_4, "list*", 1, INF_ARG, TST_NONE, OP_LIST_STAR )
_OP_DEF(opexe_4, "append", 0, INF_ARG, TST_NONE, OP_APPEND ) _OP_DEF(opexe_4, "append", 0, INF_ARG, TST_NONE, OP_APPEND )
_OP_DEF(opexe_4, "put", 3, 3, TST_NONE, OP_PUT ) _OP_DEF(opexe_4, "put", 3, 3, TST_NONE, OP_PUT )