diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-03-27 21:38:35 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-03-27 21:38:35 -0700 |
| commit | 8a32d5553fea4e71ebecb48ee414723f63bb5852 (patch) | |
| tree | 3242a985cb8e96df46e22a658d4fb1cfc9e780ee /time.c | |
| parent | e3f221aa1db11ca3710827d91f31634dfb3b33aa (diff) | |
| download | txr-8a32d5553fea4e71ebecb48ee414723f63bb5852.tar.gz txr-8a32d5553fea4e71ebecb48ee414723f63bb5852.tar.bz2 txr-8a32d5553fea4e71ebecb48ee414723f63bb5852.zip | |
compiler: cache param-info objects.
* share/txr/stdlib/compiler.tl (%param-info%): New global
variable.
(compiler comp-fun-form): Use get-param-info function to get
param-info object.
(get-param-info): Retrieve object from cache, using the
function as the key. If not found, create the entry.
(compiler-emit-warning): Use get-param-info.
* share/txr/stdlib/param.tl (struct param-info): Remove symbol
slot, replacing it with the function.
(param-info :postinit): No need to do symbol-function lookup;
the function is given.
Diffstat (limited to 'time.c')
0 files changed, 0 insertions, 0 deletions