diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-18 20:27:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-18 20:27:14 +0000 |
| commit | 35ef2226d840fbc726f944afd053abd56fa0ee75 (patch) | |
| tree | c03eeaaa0b0a5ccc5c7589bdb5733c154a72eab7 /src | |
| parent | f4cfe9ffca87d83a1f1fc827ecc89d313050d757 (diff) | |
| download | open-axiom-35ef2226d840fbc726f944afd053abd56fa0ee75.tar.gz | |
* interp/define.boot ($mutableDomain): Define.
(compDefineFunctor): Initialize it before compiling a functor.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/define.boot | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 33ab484e..8863e00b 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-04-18 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/define.boot ($mutableDomain): Define. + (compDefineFunctor): Initialize it before compiling a functor. + 2008-04-14 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/compiler.boot: Don't special case ListCategory, String, diff --git a/src/interp/define.boot b/src/interp/define.boot index 07b81a4f..a765091d 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -43,6 +43,10 @@ $newCompCompare := false ++ List of mutable domains. $mutableDomains := nil +++ True if the current constructor being compiled instantiates +++ mutable domains or packages. Default is `false'. +$mutableDomain := false + ++ when non nil, holds the declaration number of a function in a capsule. $suffix := nil @@ -385,6 +389,7 @@ compDefineFunctor(df,m,e,prefix,fal) == $domainShell: local -- holds the category of the object being compiled $profileCompiler: local := true $profileAlist: local := nil + $mutableDomain: fluid := false $LISPLIB => compDefineLisplib(df,m,e,prefix,fal,'compDefineFunctor1) compDefineFunctor1(df,m,e,prefix,fal) |