Bruce Hill
10bd72e858
better error reporting, e.g. for (fail) (no arguments). Overall better
error reporting now. Also added shorthand ("Action" tree with ...) for
(SyntaxTree {.type = "Action", .1 = ...}).
39 lines
1.5 KiB
Plaintext
39 lines
1.5 KiB
Plaintext
#!/usr/bin/env nomsu -V6.15.13.8
|
|
#
|
|
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))
|