diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-05-05 12:59:07 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-05-05 12:59:07 +0200 |
| commit | 9e775af3bf0db457eceb5a9a1f4a87968d011492 (patch) | |
| tree | 6a5545f47d4ecec48055592c1bf074ecd2db805c /doc/ref/api.txt | |
| parent | 89f9dd7065971d9d9047b42f044c06cc943f5efc (diff) | |
| download | guile-9e775af3bf0db457eceb5a9a1f4a87968d011492.tar.gz | |
srfi-1 `member' in scheme, inlines to memq / memv in some cases
* libguile/srfi-1.c:
* libguile/srfi-1.h (scm_srfi1_member): Move implementation to Scheme.
* module/srfi/srfi-1.scm (member): Implement here, with the inlining
cases for eq? and eqv?. Speeds up a compiled bootstrap of
psyntax.scm, because lset-adjoin inlines to the memq case.
(lset<=): Reindent.
(lset-adjoin, lset-union): If the comparator is eq? or eqv?, just pass
it through to `member', so we inline to memq / memv. Use something
closer to the reference implementations.
Diffstat (limited to 'doc/ref/api.txt')
0 files changed, 0 insertions, 0 deletions