Changeset 39486 in project

Timestamp:

01/06/21 17:35:32 (11 days ago)

Author:

juergen

Message:

dotted-lambdas 1.1 docu

File:

• wiki/eggref/5/dotted-lambdas (modified) (6 diffs)

wiki/eggref/5/dotted-lambdas

@@ -10 +10 @@
 last item is one of the symbols .., ... or ....
 
-The meaning of theses symbols, which are ledal identifiers, is
+The meaning of theses symbols, which are legal identifiers, is
 
 * two dots:   the argument to the left references a callable list
@@ -60 +60 @@
 The last one evaluates to ordinary (lambda (x ...) xpr . xprs)
 
+==== define
+ 
+<macro>(define* (name x ... xs ..) xpr . xprs)</macro>
+
+<macro>(define* (name x ... xs ...) xpr . xprs)</macro>
+
+<macro>(define* (name x ... xs ....) xpr . xprs)</macro>
+
+<macro>(define* (name x ...) xpr . xprs)</macro>
+
+<macro>(define name (lambda* (x ... xs ..) xpr . xprs))</macro>
+
+syntactic sugar for, e.g.
+
 ==== dotted-lambdas
  
@@ -123 +137 @@
 ;-> (quote ())
 
+(define* (inc x i ..) (+ x (optional (i) 1)))
+
+(define* (foo x y zs ...) (list x y (zs)))
+
+(define* (bar x ys ....) (list x (ys)))
+
+(define* (baz xs ..) (list (xs)))
+
+(inc 5)
+;-> 6
+
+(inc 5 3)
+;-> 8
+
+(foo 1 2 3 4)
+;-> (quote (1 2 (3 4)))
+
+(foo 1 2)
+;-> (quote (1 2 ()))
+
+(bar 1 2 3 4)
+;-> (quote (1 (2 3 4)))
+
+(condition-case (bar 1) ((exn) #f))
+;-> #f
+
+(baz 1)
+;-> (quote ((1)))
+
+(condition-case (baz 1 2) ((exn) #f))
+;-> #f
+
 </enscript>
 
@@ -132 +178 @@
 == Last update
 
-Sep 4, 2020
+Jan 6, 2021
 
 == Author
@@ -140 +186 @@
 == License
 
-Copyright (c) 2020 , Juergen Lorenz, ju (at) jugilo (dot) de
+Copyright (c) 2021 , Juergen Lorenz, ju (at) jugilo (dot) de
 All rights reserved.
 
@@ -170 +216 @@
 
 == Version history
+; 1.1 : define* added
 ; 1.0 : Initial check in