blob: 0d6b8de3befd2ed211f890f93cedc749b2162ec5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!/usr/bin/env nomsu -V7.0.0
###
This file defines upgrades from Nomsu <6.14 to 6.14
use "compatibility/compatibility"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
upgrade action
try $action and if it succeeds $success or if it barfs $msg $fallback
..to "6.14" as (try $action if it succeeds $success if it fails $msg $fallback)
upgrade action
try $action and if it barfs $msg $fallback or if it succeeds $success
..to "6.14" as (try $action if it fails $msg $fallback if it succeeds $success)
upgrade action (try $action and if it barfs $fallback or if it succeeds $success)
..to "6.14" as (try $action if it fails $fallback if it succeeds $success)
upgrade action (try $action and if it barfs $msg $fallback) to "6.14" as
try $action if it fails $msg $fallback
upgrade action (try $action and if it succeeds $success) to "6.14" as
try $action if it succeeds $success
upgrade action (assume $assumption or barf $err) to "6.14" as
unless $assumption: fail $err
upgrade action (barf $msg) to "6.14" as (fail $msg)
upgrade action (`(1's meaning)).stub to "6.14" via
$tree -> ("Var" tree from $tree.source with $tree.1)
upgrade action (log base $b of $n) to "6.14" as (log $n base $b)
upgrade action "use" to "6.14" via
for $tree:
$path = $tree.2.1
$path = ($path, with "%.nom$" -> "")
$path = ($path, with "^lib/" -> "")
return `(use `("Text" tree from $tree.2.source with $path))
|
