Silly let example pasted by wasamasa on Tue Apr 8 22:21:10 2025

(import scheme)
(import (chicken base))
(import (chicken pretty-print))

(define-syntax my-let
  (syntax-rules ()
    ((_ (binding values ...) ...)
     '(broken-let ((binding values ...) ...)))))

(pp (my-let (first-binding 1) (second-binding 2)))

;; (broken-let ((first-binding 1)
;;              (second-binding 2)))
[ permalink | raw ]

wasamasa added by Demonstration of silliness on Tue Apr 8 22:22:18 2025

(import scheme)
(import (chicken base))
(import (chicken pretty-print))

(define-syntax my-let
  (syntax-rules ()
    ((_ (binding values ...) ...)
     '(broken-let ((binding values ...) ...)))))

(pp (my-let (first-binding 1) (second-binding 2)))

;; (broken-let ((first-binding 1)
;;              (second-binding 2)))

(pp (my-let (first-binding 1 2) (second-binding 3 4) (third-binding 5 6)))

;; (broken-let ((first-binding 1 2)
;;              (second-binding 3 4)
;;              (third-binding 5 6)))
[ permalink | raw ]