dup cons i

2019-11-12 09:23:31 -08:00
parent e72fa2585f
commit 89c58d4f5a
3 changed files with 5 additions and 3 deletions
@@ -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)].
@@ -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.