diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-01-24 13:49:15 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-01-24 13:49:15 +0000 |
| commit | 20af041c1c069d10197ac8ad932d1d73fe21f5e5 (patch) | |
| tree | 79110791f57a0b4249bdd27f133f43299542ea74 /src/interp/i-spec1.boot | |
| parent | 32699b46b1c0932491cae5c7e7101d2a76975707 (diff) | |
| download | open-axiom-20af041c1c069d10197ac8ad932d1d73fe21f5e5.tar.gz | |
Define some global variables
Diffstat (limited to 'src/interp/i-spec1.boot')
| -rw-r--r-- | src/interp/i-spec1.boot | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index 0f67fccf..9190d67d 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -36,16 +36,22 @@ import '"i-analy" -- Functions which require special handlers (also see end of file) -$repeatLabel := NIL -$breakCount := 0 -$anonymousMapCounter := 0 - $specialOps := '( ADEF AlgExtension _and _case COERCE COLLECT construct Declare DEF Dollar equation error free has IF _is _isnt iterate _break LET _local MDEF _or pretend QUOTE REDUCE REPEAT _return SEQ TARGET Tuple typeOf _where _[_|_|_] ) +$repeatLabel := NIL +$breakCount := 0 +$anonymousMapCounter := 0 + +++ List of free variables in the current function +$freeVariables := [] + +++ List of bound variables in the current function +$boundVariables := [] + --% Void stuff voidValue() == '"()" |