diff options
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 344463ad..0689649a 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1164,9 +1164,9 @@ compElt(form,m,E) == [anOp,aDomain,mmList]) mmList.(0) [sig,[pred,val]]:= modemap - #sig~=2 and ^val is ["elt",:.] => nil --what does the second clause do ???? + #sig ~= 2 and val isnt ["CONST",:.] => nil val := genDeltaEntry [opOf anOp,:modemap] - convert([["call",val],first rest sig,E], m) --implies fn calls used to access constants + convert([["call",val],first rest sig,E], m) compForm(form,m,E) --% HAS |