[gimp] Fix for SourceForge bug #2826594 (allow reverse to work on empty list). From SVN version 64 of offic



commit f571ebf2470ef057abec64ed66095f9462c8e016
Author: Kevin Cozens <kcozens cvs gnome org>
Date:   Sun Jan 16 16:26:57 2011 -0500

    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.

 plug-ins/script-fu/tinyscheme/opdefines.h |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)
---
diff --git a/plug-ins/script-fu/tinyscheme/opdefines.h b/plug-ins/script-fu/tinyscheme/opdefines.h
index a1ace89..20fa5e1 100644
--- a/plug-ins/script-fu/tinyscheme/opdefines.h
+++ b/plug-ins/script-fu/tinyscheme/opdefines.h
@@ -132,7 +132,6 @@
     _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, "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, "eqv?",                           2,  2,       TST_ANY,                         OP_EQV              )
     _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, "error",                          1,  INF_ARG, TST_NONE,                        OP_ERR0             )
     _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, "append",                         0,  INF_ARG, TST_NONE,                        OP_APPEND           )
     _OP_DEF(opexe_4, "put",                            3,  3,       TST_NONE,                        OP_PUT              )



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]