diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2019-03-20 16:16:41 -0700 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2019-03-20 16:16:41 -0700 |
| commit | 938adbfe446e7f4a4e45b9dd27b5cf2e7ee4070c (patch) | |
| tree | 1a28126609a6d2ad3acabfa044aea106f0abf10b /lib/compatibility/6.14.nom | |
| parent | e665d9725c4bb02f4c18d16527367f424cb880fa (diff) | |
Switching more verbose ("Action" tree with "foo" $x) syntax to `(foo
`$x) when possible
Diffstat (limited to 'lib/compatibility/6.14.nom')
| -rw-r--r-- | lib/compatibility/6.14.nom | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/compatibility/6.14.nom b/lib/compatibility/6.14.nom index b809afd..0d6b8de 100644 --- a/lib/compatibility/6.14.nom +++ b/lib/compatibility/6.14.nom @@ -28,7 +28,7 @@ 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 ("Action" tree with 1 "'" "s" "meaning").stub to "6.14" via +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 @@ -36,4 +36,4 @@ upgrade action "use" to "6.14" via $path = $tree.2.1 $path = ($path, with "%.nom$" -> "") $path = ($path, with "^lib/" -> "") - return ("Action" tree with "use" ("Text" tree from $tree.2.source with $path))
\ No newline at end of file + return `(use `("Text" tree from $tree.2.source with $path)) |