Merge remote-tracking branches 'juped/no-begin' and 'ohaitch/fix-tscn-chronolock'

Deprecates the |begin command (closes #567)
Fixes /=== syntax in dojo always locking to current time (closes #565)

ape/dojo.hoon

@@ -142,8 +142,10 @@
         ==
       ::
         ;~  pfix  tis
-          %+  dp-variable  ;~(pose sym (cold %dir cen))
+          ;~  pose
-          ;~(pfix ace dp-source)
+            (dp-variable (cold %dir cen) ;~(pfix ace :(stag 0 %ex dp-rood)))
+            (dp-variable sym ;~(pfix ace dp-source))
+          ==
         ==
       ::
         ;~  pfix  fas 
@@ -219,7 +221,18 @@
     ++  dp-path    (tope he-beam)                       ::  ++path
     ++  dp-server  (stag 0 (most fas sym))              ::  ++dojo-server
     ++  dp-twig    tall:(vang | dp-path)                ::  ++twig
-    ++  dp-poor    poor:(vang | (tope dir))             ::  (list ++twig)
+    ++  dp-rood                                         ::  'dir' twig
+      =>  (vang | (tope dir))
+      ;~  pose
+        rood
+      ::
+        =-  ;~(pfix cen (stag %clsg -))                 ::  XX refactor ++scat
+        %+  sear  |=([a=@ud b=tyke] (posh ~ ~ a b))
+        ;~  pose
+          porc
+          (cook |=(a=(list) [(lent a) ~]) (star cen))
+        ==
+      ==
     ++  dp-value                                        ::  ++dojo-source
       ;~  pose
         (stag %ex dp-twig)

gen/hood/begin.hoon

@@ -13,9 +13,15 @@
 [sole .]
 :-  %ask
 |=  $:  [now=@da eny=@uvI bec=beak]
-        [arg=_(scug *@ ~[his=*@p tic=*@p]) ~]
+        [arg=_(scug *@ ~[his=*@p tic=*@p])]
+        safety=?(%on %off)
     ==
 ^-  (sole-result (cask begs))
+?.  =(safety %off)
+  %+  sole-yo
+    :-  %leaf
+    "|begin is deprecated, please invoke urbit with -w [name] -t [ticket]"
+  sole-no
 =-  ?~  arg  -
     =+  (fun.q.q his.arg)
     ?~  +.arg  -

sur/sole.hoon

@@ -102,7 +102,7 @@
   [p=*(list tank) q=[%| p=[pul %get ~ ~] q=fun]]        ::
 ::                                                      ::
 ++  sole-no                                             ::  empty result
-  [p=*(list tank) q=~]                                  ::
+  [p=*(list tank) q=[%& ~]]                             ::
 ::                                                      ::
 ++  sole-go                                             ::  parse by rule
   |*  [sef=_rule fun=$+(* *)]                           ::