[uim-commit] r2031 - branches/r5rs/sigscheme/script

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-06 04:26:24 -0800 (Sun, 06 Nov 2005)
New Revision: 2031

Modified:
   branches/r5rs/sigscheme/script/scm_decl.rb
Log:
* sigscheme/script/scm_decl.rb
  - (SCM_DECL_RE): Remove a garbage
  - (String#scan_scm_decl): Cosmetic change


Modified: branches/r5rs/sigscheme/script/scm_decl.rb
===================================================================
--- branches/r5rs/sigscheme/script/scm_decl.rb	2005-11-06 12:04:48 UTC (rev 2030)
+++ branches/r5rs/sigscheme/script/scm_decl.rb	2005-11-06 12:26:24 UTC (rev 2031)
@@ -42,7 +42,7 @@
 # $8  :register_func   ProcedureFixedTailRec2
 # $9  :functype_prefix Procedure
 # $10 :functype_spec   FixedTailRec2
-SCM_DECL_RE = /\n((ScmObj)\s+(Scm(Op|Exp)_(.\w+))\(([^{]+)\))[ \t]*\n\s*\{[^{}]+DECLARE_FUNCTION\(\s*\"([^\"]+)\"[\s,]+([^\s,]+)\)/m
+SCM_DECL_RE = /\n((ScmObj)\s+(Scm(Op|Exp)_(\w+))\(([^{]+)\))[ \t]*\n\s*\{[^{}]+DECLARE_FUNCTION\(\s*\"([^\"]+)\"[\s,]+([^\s,]+)\)/m
 
 
 class String
@@ -61,7 +61,7 @@
         :functype_prefix => functype_prefix,
         :functype_spec   => functype_spec,
       }
-      res.push(yield(decl))
+      res << yield(decl)
     }
     res
   end