Data update

Task/Named-parameters/FutureBasic/named-parameters.basic

@@ -0,0 +1,9 @@
+include "NSLog.incl"
+
+CFStringRef local fn WelcomeToFutureBasic( person as CFStringRef, location as CFStringRef )
+  return fn StringWithFormat( @"Welcome %@! Glad you could join us from %@.", person, location )
+end fn = NULL
+
+NSLog( @"%@", fn WelcomeToFutureBasic( @"John Codemeister", @"Hawaii" ) )
+
+HandleEvents

Task/Named-parameters/Icon/named-parameters.icon

@@ -10,7 +10,7 @@ procedure testproc(A[])   #: demo to test named parameters
 
    while a := get(A) do               # implement named parameters here
       (( a ? (v := =!["x","y","z"], =":=")  |   #  valid parameter name?
-         stop("No parameter ",a)) &             #  . . no
+         stop(&output,"No parameter ",a)) &     #  . . no
             ((variable(a[1:-2]) := get(A))  |   #  assign
                runerr(205,a)))                  #  . . problem
 

Task/Named-parameters/Pluto/named-parameters.pluto

@@ -0,0 +1,7 @@
+local function print_name(forename, surname = "Trump").
+    print($"{forename} {surname}")
+end
+
+print_name(forename = "Abraham", surname = "Lincoln")
+print_name(surname = "Trump", forename = "Donald")
+print_name(forename = "Donald")