From 4500f9d53feea9205c4c30743bb99e3a5f15703d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 26 Dec 2021 20:30:22 -0800
Subject: txr: allow variable to span vertical function.

* match.c (v_var_compat, v_var): New static functions.
(match_files): No longer recognize v_var specially; it is now
handled via vertical table.
(dir_tables_init): Register a vertical sys:var directive also
via v_var function.
(match_compat_fixup): New function.

* txr.c (compat): Call match_compat_fixup.

* tests/010/span-var.txr: New file.

* txr.1: Documented.
---
 tests/010/span-var.txr | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tests/010/span-var.txr

(limited to 'tests/010/span-var.txr')

diff --git a/tests/010/span-var.txr b/tests/010/span-var.txr
new file mode 100644
index 00000000..5f5faa6c
--- /dev/null
+++ b/tests/010/span-var.txr
@@ -0,0 +1,15 @@
+@(define fun (x y))
+@(bind x "x")
+@y
+@y
+@y
+@(end)
+@(next :list '("a" "a" "a" "b" "c"))
+@{z (fun x "a")}
+@(require (equal x "x"))
+@(require (equal z '("a" "a" "a")))
+@(define fun2 (x y))@(bind x "x")@y@(end)
+@(next :string "ab")
+@{w (fun2 x "a")}@y
+@(require (equal w "a"))
+@(require (equal y "b"))
-- 
cgit v1.2.3