From 4ec2732a9d255dab13af8bea2a59d5066282d498 Mon Sep 17 00:00:00 2001
From: jmoenig <jens@moenig.org>
Date: Mon, 21 Jan 2019 13:22:20 +0100
Subject: [PATCH] updated internal "for reach" primitive block with new arrow
 symbol. Sigh.

---
 HISTORY.md     | 3 ++-
 snap.html      | 2 +-
 src/blocks.js  | 8 ++++++++
 src/objects.js | 4 ++--
 4 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/HISTORY.md b/HISTORY.md
index 68d016ba..c69d3f28 100755
--- a/HISTORY.md
+++ b/HISTORY.md
@@ -3,7 +3,8 @@
 ## in development
 
 ### 2019-01-21
-* let users make C-shape slots with loop arrow symbols. Sigh. 
+* let users make C-shape slots with loop arrow symbols. Sigh.
+* updated internal "for reach" primitive block with new arrow symbol. Sigh. 
 * updated Indonesian translation, thanks, Emmanuella Rumanti 
 
 ### 2019-01-19
diff --git a/snap.html b/snap.html
index 2168e428..5900658e 100755
--- a/snap.html
+++ b/snap.html
@@ -8,7 +8,7 @@
         <script type="text/javascript" src="src/widgets.js?version=2018-10-02"></script>
         <script type="text/javascript" src="src/blocks.js?version=2019-01-21"></script>
         <script type="text/javascript" src="src/threads.js?version=2019-01-12"></script>
-        <script type="text/javascript" src="src/objects.js?version=2019-01-14"></script>
+        <script type="text/javascript" src="src/objects.js?version=2019-01-21"></script>
         <script type="text/javascript" src="src/gui.js?version=2019-01-17"></script>
         <script type="text/javascript" src="src/paint.js?version=2018-10-02"></script>
         <script type="text/javascript" src="src/lists.js?version=2019-01-10"></script>
diff --git a/src/blocks.js b/src/blocks.js
index 9e958369..0cd9a249 100644
--- a/src/blocks.js
+++ b/src/blocks.js
@@ -1474,6 +1474,13 @@ SyntaxElementMorph.prototype.labelPart = function (spec) {
             part.isStatic = true; // rejects reporter drops
             part.isLambda = true; // auto-reifies nested script
             break;
+        case '%cla':
+            part = new CSlotMorph();
+            part.isStatic = true; // rejects reporter drops
+            part.isLambda = true; // auto-reifies nested script
+            part.isLoop = true; // has a loop symbol
+            part.add(this.labelPart('%loopArrow'));
+            break;
         case '%loop':
             part = new CSlotMorph();
             part.isStatic = true;
@@ -2227,6 +2234,7 @@ SyntaxElementMorph.prototype.endLayout = function () {
     %ca     - C-shaped with loop arrow, for custom blocks
     %cs     - C-shaped, auto-reifying, accepts reporter drops
     %cl     - C-shaped, auto-reifying, rejects reporters
+    %cla    - C-shaped with loop arrows, auto-reifying, rejects reporters
     %clr    - interactive color slot
     %t      - inline variable reporter template
     %anyUE  - white rectangular type-in slot, unevaluated if replaced
diff --git a/src/objects.js b/src/objects.js
index b6713599..a485d439 100644
--- a/src/objects.js
+++ b/src/objects.js
@@ -83,7 +83,7 @@ BlockEditorMorph, BlockDialogMorph, PrototypeHatBlockMorph, localize,
 TableMorph, TableFrameMorph, normalizeCanvas, BooleanSlotMorph, HandleMorph,
 AlignmentMorph, Process, XML_Element, VectorPaintEditorMorph*/
 
-modules.objects = '2019-January-14';
+modules.objects = '2019-January-21';
 
 var SpriteMorph;
 var StageMorph;
@@ -1139,7 +1139,7 @@ SpriteMorph.prototype.initBlocks = function () {
             dev: true,
             type: 'command',
             category: 'lists',
-            spec: 'for %upvar in %l %cl',
+            spec: 'for %upvar in %l %cla',
             defaults: [localize('each item')]
         },