(examples-for colon-syntax

("expands to sequential function application"
 (pre-compile 'a:b)
 (fn args (a (apply b args))))

("example with car:cdr"
 (car:cdr '(a b c))
 b)

("dislikes no-prefix"
 (on-err (joinstr "\n" errors)
         (pre-compile (car (parse "(:foo 1 2 3)"))))
 "expanding

(colon-syntax || foo) with NydpGenerated_D5FEA04F6E33706A6789A4F7BD15E937C3CFFAF5C16B89D54087F38BD4E594D1.rb:24 (fn names ((orf (hash-get colon-syntax-overrides (car names)) default-colon-syntax) names)) Irregular ‘: syntax: got (|| foo) : not prefix-syntax : in :foo“))

(examples-for prefix-list

("one argument"
 (map λa(len a.name)
      (list { name "bob" } { name "willy" } { name "pteradactyl" }))
 (3 5 11))

("with two args"
 (reduce λxy(joinstr ":" x y)
         '(a b c d e f))
 "a:b:c:d:e:f")

("with no args"
 (let x 15
   (let y λ(* x x)
     (y)))
 225)

("with two args, to be sure"
 (λpq(+ p (* p q)) 3 5)
 18))

(examples-for tilde-prefix-expansion

("tilde expands to to-string"
 (with (a (to-string (date "2004-03-12"))
        b ~(date "2004-03-12"))
   (list a b))
 ("2004-03-12" "2004-03-12")))