From: Matt Birkholz Date: Wed, 1 Jul 2015 15:03:48 +0000 (-0700) Subject: Punt unused variable slots and mention of dangerous bindings. X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~69 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1ce3d08eed90046a468df8f77cad58fdb3fca5fa;p=mit-scheme.git Punt unused variable slots and mention of dangerous bindings. --- diff --git a/src/microcode/scode.h b/src/microcode/scode.h index 851c3424b..9a1f622a5 100644 --- a/src/microcode/scode.h +++ b/src/microcode/scode.h @@ -146,17 +146,9 @@ USA. /* VARIABLE operation. * Corresponds to a variable lookup or variable reference. Contains the - * symbol referenced, and (if it has been compiled) the frame and - * offset in the frame in which it was found. One of these cells is - * multiplexed by having its type code indicate one of several modes - * of reference: not yet compiled, local reference, formal reference, - * auxiliary reference, or global value reference. - * There are extra definitions in lookup.h. + * symbol referenced */ #define VARIABLE_SYMBOL 0 -#define VARIABLE_FRAME_NO 1 -#define VARIABLE_OFFSET 2 -#define VARIABLE_COMPILED_TYPE 1 #define GET_VARIABLE_SYMBOL(variable) \ (MEMORY_REF ((variable), VARIABLE_SYMBOL)) diff --git a/src/microcode/sdata.h b/src/microcode/sdata.h index f0625b81e..1d3b950bd 100644 --- a/src/microcode/sdata.h +++ b/src/microcode/sdata.h @@ -124,12 +124,9 @@ USA. * call) or a incremental (run-time) DEFINE (known as an 'auxilliary' * binding). * When an environment frame is created, it only contains lambda - * bindings. If incremental defines are performed in it or its - * children, it acquires an extension which contains a list of the - * auxiliary bindings. Some of these bindings are fictitious in that - * their only purpose is to make the real bindings (if and when they - * occur) become automatically dangerous. Bindings become dangerous - * when they are shadowed by incremental bindings in children frames. + * bindings. If incremental defines are performed in it, it acquires + * an extension which contains a list of the auxiliary bindings. + * * Besides the lambda bindings, an environment frame contains a * pointer to the procedure which created it. It is through this * procedure that the parent frame is found.