Add test user-level jet.

2024-11-13 08:38:43 +03:00 · 2014-12-03 15:21:55 -08:00 · 2014-12-03 15:21:55 -08:00 · 7d9a4c6073
commit 7d9a4c6073
parent 947bd1cb97
4 changed files with 14 additions and 3 deletions
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@ -2237,7 +2237,7 @@
  ::
  +-  tap                                               ::  adds list to end
    |=  b=(list ,_?>(?=(^ a) n.a))
-    =+  z=0                                             ::  XX breaks match
+    =+  z=0                                             ::  XX breaks jet match
    ^+  b
    ?~  a
      b
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@ -1,12 +1,19 @@
 ::
 ::  zuse (3), standard library (tang)   
 ::
+~%  %zuse  +  ~
 |%
  ::::::::::::::::::::::::::::::::::::::::::::::::::::::  ::
 ::::              chapter 3b, Arvo libraries            ::::
 ::  ::::::::::::::::::::::::::::::::::::::::::::::::::::::
 ::                section 3bA, lite number theory       ::
 ::
++  dope
+  ~/  %dope
+  |=  a=@
+  ~&  [%dope-zuse (mug +>)]
+  :(mul a a a)
+::
 ++  fu                                                  ::  modulo (mul p q)
  |=  a=[p=@ q=@]
  =+  b=?:(=([0 0] a) 0 (~(inv fo p.a) (~(sit fo p.a) q.a)))
--- a/main/lib/sqar/core.hook
+++ b/main/lib/sqar/core.hook
@ -1,5 +1,8 @@
+~%  %util  +>  ~
 |%
 ++  sqar
+  ~/  %sqar
  |=  @
-  (mul +< +<)
+  ::  (dope +<)
+  :(mul +< +< +<)
 --
--- a/main/pub/fab/sqar/hymn.hook
+++ b/main/pub/fab/sqar/hymn.hook
@ -1,7 +1,8 @@
 /+  sqar
+!:
 ;html
  ;head
-    ;title: skwaring
+    ;title: skuaring
  ==
  ;body
    ;p: 15 skwared is {<(sqar 15)>}