* renamed cxr to pairs.

src/ikarus.core.ss

@@ -54,8 +54,6 @@
       (error 'set-top-level-value! "~s is not a symbol" x))
     ($set-symbol-value! x v)))
  
-  
-
 (primitive-set! 'primitive-set!
   (lambda (x v)
     (unless (symbol? x)
@@ -63,15 +61,6 @@
     (primitive-set! x v)
     (set-top-level-value! x v)))
 
- 
- 
-
-
-
-
-
-
-
 (primitive-set! '$memq
   (lambda (x ls)
     (let f ([x x] [ls ls])
@@ -113,9 +102,6 @@
       [else 
        (error 'char-downcase "~s is not a character" c)])))
 
-
-
-
 (primitive-set! 'cons (lambda (x y) (cons x y)))
 
 (primitive-set! 'eq? (lambda (x y) (eq? x y)))

src/ikarus.pairs.ss

@@ -1,6 +1,6 @@
 
 
-(library (ikarus cxr)
+(library (ikarus pairs)
   (export
     car cdr caar cdar cadr cddr caaar cdaar cadar cddar caadr cdadr
     caddr cdddr caaaar cdaaar cadaar cddaar caadar cdadar caddar

src/makefile.ss

@@ -26,10 +26,10 @@
       "ikarus.control.ss"
       "ikarus.collect.ss"
       "ikarus.predicates.ss"
+      "ikarus.pairs.ss"
       "ikarus.fixnums.ss"
       "ikarus.chars.ss"
       "ikarus.records.ss"
-      "ikarus.cxr.ss"
       "ikarus.strings.ss"
       "ikarus.vectors.ss"
       "ikarus.numerics.ss"