diff options
| -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) |