[Swig-cvs] SWIG/Source/Modules chicken.cxx,1.14,1.15

[John L. <wu...@us...>]

Update of /cvsroot/swig/SWIG/Source/Modules
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30485/Source/Modules

Modified Files:
	chicken.cxx 
Log Message:
Rewrite chicken example and test-suite building code


Index: chicken.cxx
===================================================================
RCS file: /cvsroot/swig/SWIG/Source/Modules/chicken.cxx,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** chicken.cxx	2 May 2004 21:24:39 -0000	1.14
--- chicken.cxx	30 May 2004 07:11:26 -0000	1.15
***************
*** 1675,1687 ****
  {
  #ifndef BINDING
!   /* unless Chicken is run in case-sensitive mode, all symbols need
!      to be lowercase.  Also, the symbols need the prefix. */
    String *sym = NewString(prefix);
    Append(sym, scheme_name);
-   char *s = Char(sym);
-   const int L = Len(sym);
-   for (int i=0; i < L; i++, s++) {
-     *s = tolower(*s);
-   }
  
    /* add symbol to Chicken internal symbol table */
--- 1675,1681 ----
  {
  #ifndef BINDING
!   /* The symbols need the prefix. */
    String *sym = NewString(prefix);
    Append(sym, scheme_name);
  
    /* add symbol to Chicken internal symbol table */