dup cons i

thun/asm-dump.txt

@@ -187,4 +187,5 @@ store_word(6, 0, 0),
 do_offset(H),
 label(I1),
 expr_cell(R, 4),
+expr_cell(J, 4),
 expr_cell(S, 0)].

thun/compiler.markII.pl

@@ -162,9 +162,9 @@ Mark II
 
 
     % ======================================
-    label(Expression)
-]),
-    dexpr([Dup, I]).
+    label(Expression),
+    dexpr([Dup, Cons, I])
+]).
 
 
 /*
@@ -200,6 +200,7 @@ language.
 ⟐(load(From, To)) --> [load_word(From, To, 0)].
 
 ⟐(label(L)) --> [label(L)].  % Pass through.
+⟐(dexpr(L)) -->  dexpr(L).   % Pass through.
 
 ⟐(jump(To)) --> [do_offset(To)].  % Pass through.