diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-29 07:03:45 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-29 07:03:45 +0000 |
| commit | 8713b86619d3b01bf6af78af9429c6b032937ed4 (patch) | |
| tree | 646cff9501177c9719b0ad860929d7672dc79f55 /src/interp/wi1.boot | |
| parent | bd554cf33bad7b6316732721fa192bc27b5a4b6e (diff) | |
| download | open-axiom-8713b86619d3b01bf6af78af9429c6b032937ed4.tar.gz | |
* interp/compiler.boot (setqSingle): Use setShellEntry.
* interp/wi1.boot (setqSingle): Likewise.
* interp/functor.boot (setVector4): Likewise.
(DescendCode): Abort on SETELT opcode.
(SetFunctionSlots): Likewise.
* interp/nrunfast.boot (evalSlotDomain): Likewise.
* interp/nrungo.boot (NRTevalDomain): Likewise.
* interp/showimp.boot (getDomainRefName): Match "setShellEntry".
Diffstat (limited to 'src/interp/wi1.boot')
| -rw-r--r-- | src/interp/wi1.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index fc971f76..9b83ebc0 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -579,7 +579,7 @@ setqSingle(id,val,m,E) == if (k:=NRTassocIndex(id)) then $markFreeStack := [id,:$markFreeStack] - form:=['SETELT,"$",k,x] + form:=["setShellEntry","$",k,x] else form:= $QuickLet => ["%LET",id,x] ["%LET",id,x, @@ -1214,7 +1214,8 @@ compDefineCategory2(form,signature,specialCases,body,m,e, ['sublisV,['PAIR,['QUOTE,sargl],['LIST,: [['devaluate,u] for u in sargl]]],body] body:= - ['PROG1,["%LET",g:= GENSYM(),body],['SETELT,g,0,mkConstructor $functorForm]] + ['PROG1,["%LET",g:= GENSYM(),body], + ["setShellEntry",g,0,mkConstructor $functorForm]] fun:= compile [op',['LAM,sargl,body]] -- 5. give operator a 'modemap property |