From ce88b9b40b7ecd6404c9315f70dbe8b1595a4925 Mon Sep 17 00:00:00 2001
From: "Marc G. Fournier" <scrappy@hub.org>
Date: Fri, 13 Feb 1998 17:18:25 +0000
Subject: [PATCH] From: Jan Wieck <jwieck@debis.com>

    just a little correction in the pltcl_guide.nr.

    Sometimes I changed the name of tuple arguments to numbers
    like the other args are. Otherwise it wasn't possible to
    create a function as

        CREATE FUNCTION f (EMP, EMP) ... LANGUAGE 'pltcl';

    The arguments are now accessed in the function as

        $1(name) vs. $2(name)
---
 src/pl/tcl/pltcl_guide.nr | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/pl/tcl/pltcl_guide.nr b/src/pl/tcl/pltcl_guide.nr
index 87fcc71f747..6fcd155a403 100644
--- a/src/pl/tcl/pltcl_guide.nr
+++ b/src/pl/tcl/pltcl_guide.nr
@@ -121,12 +121,12 @@ from the CREATE FUNCTION section of the manual would be defined in Tcl as
 .in +4
     returns bool as '
 .in +4
-    if {200000.0 < $EMP(salary)} {
+    if {200000.0 < $1(salary)} {
 .in +4
     return 't'
 .in -4
     }
-    if {$EMP(age) < 30 && 100000.0 < $EMP(salary)} {
+    if {$1(age) < 30 && 100000.0 < $1(salary)} {
 .in +4
     return 't'
 .in -4
-- 
GitLab