diff options
Diffstat (limited to 'lib.c')
-rw-r--r-- | lib.c | 28 |
1 files changed, 28 insertions, 0 deletions
@@ -8178,6 +8178,20 @@ val assql(val key, val list) return nil; } +val assq(val key, val list) +{ + list = nullify(list); + + while (list) { + val elem = car(list); + if (eq(car(elem), key)) + return elem; + list = cdr(list); + } + + return nil; +} + val rassoc(val key, val list) { list = nullify(list); @@ -8206,6 +8220,20 @@ val rassql(val key, val list) return nil; } +val rassq(val key, val list) +{ + list = nullify(list); + + while (list) { + val elem = car(list); + if (eq(cdr(elem), key)) + return elem; + list = cdr(list); + } + + return nil; +} + val acons(val car, val cdr, val list) { return cons(cons(car, cdr), list); |