aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/define.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot
index 5a8930ee..f9d2aeeb 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -500,8 +500,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],
- ["setShellEntry",g,0,mkConstructor $form]]
+ ["%Bind",[[g:= GENSYM(),body]],
+ ["setShellEntry",g,0,mkConstructor $form],g]
fun:= compile [op',["LAM",sargl,body]]
-- 5. give operator a 'modemap property