--- microscheme/init.scm	2015/11/28 22:14:49	1.7
+++ microscheme/init.scm	2015/11/29 00:02:21	1.8
@@ -1,18 +1,18 @@
 ;    Initialization file for TinySCHEME 1.41
 
 ; Per R5RS, up to four deep compositions should be defined
-(define (caar x) (car (car x)))
-(define (cadr x) (car (cdr x)))
-(define (cdar x) (cdr (car x)))
-(define (cddr x) (cdr (cdr x)))
-(define (caaar x) (car (car (car x))))
-(define (caadr x) (car (car (cdr x))))
-(define (cadar x) (car (cdr (car x))))
-(define (caddr x) (car (cdr (cdr x))))
-(define (cdaar x) (cdr (car (car x))))
-(define (cdadr x) (cdr (car (cdr x))))
-(define (cddar x) (cdr (cdr (car x))))
-(define (cdddr x) (cdr (cdr (cdr x))))
+(define (caar   x) (          car (car x)))
+(define (cadr   x) (          car (cdr x)))
+(define (cdar   x) (          cdr (car x)))
+(define (cddr   x) (          cdr (cdr x)))
+(define (caaar  x) (     car (car (car x))))
+(define (caadr  x) (     car (car (cdr x))))
+(define (cadar  x) (     car (cdr (car x))))
+(define (caddr  x) (     car (cdr (cdr x))))
+(define (cdaar  x) (     cdr (car (car x))))
+(define (cdadr  x) (     cdr (car (cdr x))))
+(define (cddar  x) (     cdr (cdr (car x))))
+(define (cdddr  x) (     cdr (cdr (cdr x))))
 (define (caaaar x) (car (car (car (car x)))))
 (define (caaadr x) (car (car (car (cdr x)))))
 (define (caadar x) (car (car (cdr (car x)))))
@@ -721,6 +721,14 @@
   (let ((name (cadr dform)) (formals (caddr dform)) (body (cdddr dform)))
     `(define-macro (,name . ,formals) ,@body)))
 
+;; r7rs
+; char library
+; string-upcase
+; string-downcase
+; string-foldcase
+; sring-map, vector-map, string-for-each, vector-for-each
+; bytevectors
+
 ;; srfi-1
 
 (define (check-arg pred val caller)