klisp

commit a564f98345eda9cde8f8bcd2ca81b0262867ee8c
parent 41b2e18fd58c07665ff97fee2d69dc7980b0d36d
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Fri, 25 Mar 2011 12:50:43 -0300

Added refactor comment and corrected the name string in assq.

Diffstat:
M
src/kgpair_mut.c
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/kgpair_mut.c b/src/kgpair_mut.c
@@ -227,12 +227,13 @@ void encycleB(klisp_State *K, TValue *xparams, TValue ptree,
 /* uses copy_es helper (above copy-es-immutable) */
 
 /* 6.4.3 assq */
+/* REFACTOR: do just one pass, maybe use generalized accum function */
 void assq(klisp_State *K, TValue *xparams, TValue ptree, TValue denv)
 {
     UNUSED(xparams);
     UNUSED(denv);
 
-    bind_2p(K, "memq", ptree, obj, ls);
+    bind_2p(K, "assq", ptree, obj, ls);
     /* first pass, check structure */
     int32_t dummy;
     int32_t pairs = check_typed_list(K, "assq", "pair", kpairp,