From 9d2955097e1bd70c06df5c5a55da67fb151466c2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 4 May 2010 22:58:19 +0000
Subject: 	* interp/define.boot (compDefineCategory2): Tidy.

---
 src/interp/define.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/define.boot')

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
-- 
cgit v1.2.3