diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 7ecab9d4..84b6df23 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -863,9 +863,13 @@ isLiteral(x,e) == registerConstructor(x,e) == put('%compilerData,'%ctor,x,e) +++ Retrieve the most recent defining constructor. +currentConstructor e == + get('%compilerData,'%ctor,e) + ++ Retrieve the DB of the constructor definition being processed. currentDB e == - ctor := get('%compilerData,'%ctor,e) => constructorDB ctor + ctor := currentConstructor e => constructorDB ctor nil makeLiteral: (%Symbol,%Env) -> %Thing |