funky macros pasted by john00 on Fri Feb 7 17:08:21 2020

(define-syntax let-zip
  (syntax-rules ()
    ((_ symbols values body ...)
     `(let (,@(zip symbols values))
        body ...))))

(let-zip '(x y z) '(5 10 15)
         (print "x: " x)
         (print "y: " y)
         (print "z: " z))

syntax-rules added by konlovett on Fri Feb 7 17:11:33 2020

(define-syntax FFF
  (syntax-rules ()
    ((FFF (?var0 ...) (?val0 ...) ?body ...)
      (let ((?var0 ?val0) ...) ?body ...) ) ) )

#;2> (FFF (a b) (1 2) (list a b))
(1 2)
#;3> ,x* (FFF (a b) (1 2) (list a b))
(##core#let ((a 1) (b 2)) (list a b))