From: Marc G. Fournier <scrappy@hub.org>
Date: Fri, 13 Feb 1998 17:18:25 +0000 (+0000)
Subject: From: Jan Wieck <jwieck@debis.com>
X-Git-Tag: REL6_3~150
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ce88b9b40b7ecd6404c9315f70dbe8b1595a4925;p=postgresql

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)
---

diff --git a/src/pl/tcl/pltcl_guide.nr b/src/pl/tcl/pltcl_guide.nr
index 87fcc71f74..6fcd155a40 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