Author: yamakenz
Date: Tue Jul 10 02:41:12 2007
New Revision: 4679
Modified:
trunk/scm/util.scm
trunk/test/test-uim-util.scm
trunk/uim/uim-util.c
Log:
* uim/uim-util.c
- (nthcdr): Removed
- (uim_init_util_subrs): Remove nthcdr definition
* scm/util.scm
- (nthcdr): New procedure
* test/test-uim-util.scm
- Update the "passed revision" comment
Modified: trunk/scm/util.scm
==============================================================================
--- trunk/scm/util.scm (original)
+++ trunk/scm/util.scm Tue Jul 10 02:41:12 2007
@@ -315,6 +315,13 @@
(lambda (k lst)
(list-ref lst k)))
+;; should be obsoleted by list-tail
+(define nthcdr
+ (lambda (k lst)
+ (guard (err
+ (else #f))
+ (list-tail lst k))))
+
;; should be obsoleted by list-copy of SRFI-1
(define copy-list
(lambda (lst)
Modified: trunk/test/test-uim-util.scm
==============================================================================
--- trunk/test/test-uim-util.scm (original)
+++ trunk/test/test-uim-util.scm Tue Jul 10 02:41:12 2007
@@ -29,7 +29,7 @@
;;; SUCH DAMAGE.
;;;;
-;; These tests are passed at revision 4674 (new repository)
+;; These tests are passed at revision 4679 (new repository)
(use test.unit)
Modified: trunk/uim/uim-util.c
==============================================================================
--- trunk/uim/uim-util.c (original)
+++ trunk/uim/uim-util.c Tue Jul 10 02:41:12 2007
@@ -159,21 +159,6 @@
}
static uim_lisp
-nthcdr(uim_lisp nth_, uim_lisp lst)
-{
- int nth = uim_scm_c_int(nth_);
- int i;
- for (i = 0; i < nth; i++) {
- if (uim_scm_nullp(lst)) {
- /* something bad happened */
- return uim_scm_f();
- }
- lst = uim_scm_cdr(lst);
- }
- return lst;
-}
-
-static uim_lisp
c_getenv(uim_lisp str_)
{
const char *str = uim_scm_refer_c_str(str_);
@@ -510,7 +495,6 @@
uim_scm_init_subr_1("unsetenv", c_unsetenv);
/* these procedures should be replaced with standard ones of R5RS or SRFIs */
- uim_scm_init_subr_2("nthcdr", nthcdr);
uim_scm_init_subr_1("charcode->string", charcode2string);
uim_scm_init_subr_1("string->charcode", string2charcode);
uim_scm_init_subr_2("string-split", uim_split_string);
