From 938adbfe446e7f4a4e45b9dd27b5cf2e7ee4070c Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 20 Mar 2019 16:16:41 -0700 Subject: Switching more verbose ("Action" tree with "foo" $x) syntax to `(foo `$x) when possible --- lib/compatibility/6.14.nom | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/compatibility/6.14.nom') 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)) -- cgit v1.2.3