diff options
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 32517f80..089613b1 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1116,7 +1116,7 @@ compDefineCategory2(form,signature,body,m,e,$formalArgList) == [['devaluate,u] for u in sargl]]],body] body:= ["%bind",[[g:= gensym(),body]], - ['%store,['%tref,g,0],mkConstructor $form],g] + ['%seq,['%store,['%tref,g,0],mkConstructor $form],g]] fun := compile(db,[op',["LAM",sargl,body]],signature') -- 5. give operator a 'modemap property |