core: Remove c3+r abbreviatons.
[mes.git] / lib.c
diff --git a/lib.c b/lib.c
index 5ed69a6f4d5ca8d6f0bc668d9c43fa9dedaa7e9f..da55daf637a04110176590ecf0b7450242b1e3fc 100644 (file)
--- a/lib.c
+++ b/lib.c
@@ -22,14 +22,6 @@ SCM caar (SCM x) {return car (car (x));}
 SCM cadr (SCM x) {return car (cdr (x));}
 SCM cdar (SCM x) {return cdr (car (x));}
 SCM cddr (SCM x) {return cdr (cdr (x));}
-SCM caaar (SCM x) {return car (car (car (x)));}
-SCM caadr (SCM x) {return car (car (cdr (x)));}
-SCM caddr (SCM x) {return car (cdr (cdr (x)));}
-SCM cdadr (SCM x) {return cdr (car (cdr (x)));}
-SCM cadar (SCM x) {return car (cdr (car (x)));}
-SCM cddar (SCM x) {return cdr (cdr (car (x)));}
-SCM cdddr (SCM x) {return cdr (cdr (cdr (x)));}
-SCM cadddr (SCM x) {return car (cdr (cdr (cdr (x))));}
 
 SCM
 length (SCM x)