Added a Base variable in the base env which is the base env itself.

yjaradin · Aug 1, 2012 · bc96af8 · bc96af8
1 parent 1d1e6fa
commit bc96af8
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/base/Base.oz b/base/Base.oz
@@ -347,6 +347,8 @@ prepare
    \insert 'BitString.oz'
    \insert 'ByteString.oz'
 
+   Base % filled by the code applying this functor to be myself
+
 export
    %% Value
    'Value'              : Value
@@ -547,6 +549,9 @@ export
    'IsBitString'        : IsBitString
    'IsByteString'       : IsByteString
 
+   %% Reflexive me
+   'Base'               : Base
+
    %% Will be removed by the compiler
    'ByNeedDot'          : ByNeedDot
    'LockIn'             : LockIn