[uim-commit] r1217 - branches/r5rs/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-08-18 04:51:37 -0700 (Thu, 18 Aug 2005)
New Revision: 1217

Modified:
   branches/r5rs/scm/util.scm
Log:
* scm/util.scm
  - Separate backward compatibility section
  - (copy-list):
    * Move from SRFI section to the backward compatibility section
      because it is not a SRFI proc
    * Fix coding style as this file's own one. Coding style should be
      consistent within a file


Modified: branches/r5rs/scm/util.scm
===================================================================
--- branches/r5rs/scm/util.scm	2005-08-18 11:49:01 UTC (rev 1216)
+++ branches/r5rs/scm/util.scm	2005-08-18 11:51:37 UTC (rev 1217)
@@ -200,9 +200,6 @@
 	obj
 	(set-cdr! (last-pair lst) obj))))
 
-;; backward compatibility: should be obsoleted
-(define symbolconc symbol-append)
-
 ;;
 ;; R5RS-like character procedures
 ;;
@@ -268,16 +265,28 @@
 	(- c 48)
 	c)))
 
+;;
 ;; backward compatibility: should be obsoleted
+;;
+
 (define control-char? char-control?)
 (define alphabet-char? char-alphabetic?)
 (define numeral-char? char-numeric?)
 (define usual-char? char-graphic?)
 (define to-lower-char char-downcase)
+
+(define symbolconc symbol-append)
+
+;; should be obsoleted by list-ref
 (define nth
   (lambda (k lst)
     (list-ref lst k)))
 
+;; should be obsoleted by list-copy of SRFI-1
+(define copy-list
+  (lambda (lst)
+    (append lst '())))
+
 ;;
 ;; SRFI procedures (don't expect 100% compatibility)
 ;;
@@ -288,8 +297,6 @@
 ;;(define drop-right)
 ;;(define split-at)
 
-(define (copy-list lst) (append lst '()))
-
 (define list-tabulate
   (lambda (n init-proc)
     (if (< n 0)