Fix choo to properly construct all paths (#41)

zorp-corp · Oct 11, 2024 · f3a6320 · f3a6320
1 parent f2562b3
commit f3a6320
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/choo/Cargo.toml b/choo/Cargo.toml
@@ -1,6 +1,6 @@
 [package]
 name = "choo"
-version.workspace = true
+version = "0.1.1"
 edition.workspace = true
 
 [dependencies]

diff --git a/choo/bootstrap/choo.jam b/choo/bootstrap/choo.jam
diff --git a/choo/hoon/lib/kernel.hoon b/choo/hoon/lib/kernel.hoon
@@ -238,13 +238,17 @@
       raw
     %+  turn  raw.pile
     |=  [face=term pax=path]
-    [`face `path`(snoc pax %hoon)]
+    =/  pax-snip  (snip pax)
+    =/  pax-rear  (rear pax)
+    [`face `path`(snoc pax-snip `@ta`(rap 3 ~[pax-rear %'.' %hoon]))]
   ::
       bar
     %+  turn  bar.pile
     |=  [face=term mark-unsupported=@tas pax=path]
     ?:  =(mark-unsupported %hoon)
-      [`face `path`(snoc pax %hoon)]
+      =/  pax-snip  (snip pax)
+      =/  pax-rear  (rear pax)
+      [`face `path`(snoc pax-snip `@ta`(rap 3 ~[pax-rear %'.' %hoon]))]
     ~&  unsupported-mark+[mark-unsupported pax]
     !!
   ==