mirror of https://github.com/GNOME/gimp.git
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:
parent
73f9f652bc
commit
f571ebf247
|
@ -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 )
|
||||||
|
|
Loading…
Reference in New Issue