unoidl2

commit 9ab3cda1e6f95d2f214c3d7dccda6d9281d26d17
parent 5c9e0b2ee0cfd0477ea4f4f79bedbe5186473ced
Author: Tomas Hlavaty <tom@logand.com>
Date:   Tue, 20 Mar 2012 00:26:02 +0100

get2 exported

Diffstat:
M
unoidl2.c
 | 
2
+-
M
unoidl2.h
 | 
1
+

2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/unoidl2.c b/unoidl2.c
@@ -301,7 +301,7 @@ Any intern2abs(Any x) {
   return p;
 }
 
-static Any get2(Any x) {return cddr(car(x));}
+Any get2(Any x) {return cddr(car(x));}
 static Any set2(Any x, Any v) {return con(cdr(car(x)), v);}
 Any sym2p(Any x) {return cadr(car(x));}
 Any sym2k(Any x) {return caar(x);}
diff --git a/unoidl2.h b/unoidl2.h
@@ -68,6 +68,7 @@ Any reverse(Any x, Any a);
 Any id(Any x);
 Any intern2rel(Any k, Any p);
 Any intern2abs(Any x);
+Any get2(Any x);
 Any sym2p(Any x);
 Any sym2k(Any x);
 extern Any subst2_x;