pre-recording backup

examples/list-processing/fn.orc

@@ -1,15 +1,15 @@
 export Y := \f.(\x.f (x x))(\x.f (x x))
 
-export loop $r on (...$parameters) with ...$tail =0x5p512=> Y (\$r.
-  bind_names (...$parameters) (...$tail)
-) ...$parameters
+export loop $r on (..$parameters) with ...$tail =0x5p129=> Y (\$r.
+  bind_names (..$parameters) (...$tail)
+) ..$parameters
 
 -- bind each of the names in the first argument as a parameter for the second argument
-bind_names ($name ..$rest) $payload =0x2p1000=> \$name. bind_names (..$rest) $payload
-bind_names () (...$payload) =0x1p1000=> ...$payload
+bind_names ($name ..$rest) $payload =0x1p250=> \$name. bind_names (..$rest) $payload
+bind_names () (...$payload) =0x1p250=> ...$payload
 
-export ...$prefix $ ...$suffix:1 =0x1p130=> ...$prefix (...$suffix)
-export ...$prefix |> $fn ..$suffix:1 =0x2p130=> $fn (...$prefix) ..$suffix
+export ...$prefix $ ...$suffix:1 =0x1p34=> ...$prefix (...$suffix)
+export ...$prefix |> $fn ..$suffix:1 =0x2p32=> $fn (...$prefix) ..$suffix
 
-export (...$argv) => ...$body =0x2p512=> (bind_names (...$argv) (...$body))
-$name => ...$body =0x1p512=> (\$name. ...$body)
+export (...$argv) => ...$body =0x2p129=> (bind_names (...$argv) (...$body))
+$name => ...$body =0x1p129=> (\$name. ...$body)

examples/list-processing/list.orc

@@ -34,8 +34,8 @@ export take := \list.\n. (
     else pop list end \head.\tail. cons head $ r tail $ n - 1
 )
 
-new[...$item, ...$rest:1] =0x2p333=> (cons (...$item) new[...$rest])
-new[...$end] =0x1p333=> (cons (...$end) end)
-new[] =0x1p333=> end
+new[...$item, ...$rest:1] =0x2p84=> (cons (...$item) new[...$rest])
+new[...$end] =0x1p84=> (cons (...$end) end)
+new[] =0x1p84=> end
 
 export ::(new)