From a5f2b7e6641a5f7ebaf01dd0e9fa10200ceb4606 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 5 Nov 2011 19:59:05 -0700 Subject: Task #11442. Access to environment variables. * lib.c (env_list): New static variable. (env): New function. (match): Declaration of nonexistent function removed. (obj_init): New variable gc-protected. * lib.h (env): Declared. * match.c (env_k): New symbol variable. (v_next): Implemented :env. * txr.1: @(next :env) described. --- lib.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib.h') diff --git a/lib.h b/lib.h index 50789367..b0bd50a8 100644 --- a/lib.h +++ b/lib.h @@ -435,6 +435,7 @@ val merge(val list1, val list2, val lessfun, val keyfun); val sort(val list, val lessfun, val keyfun); val find(val list, val key, val testfun, val keyfun); val set_diff(val list1, val list2, val testfun, val keyfun); +val env(void); void obj_print(val obj, val stream); void obj_pprint(val obj, val stream); @@ -442,7 +443,6 @@ void init(const wchar_t *progname, mem_t *(*oom_realloc)(mem_t *, size_t), val *stack_bottom); void dump(val obj, val stream); void d(val obj); -val match(val spec, val data); #define nil ((obj_t *) 0) -- cgit v1.2.3