Welcome to the CHICKEN Scheme pasting service

(define-syntax defitem
	(syntax-rules ()
		((_ name)
			(define-syntax name
				(syntax-rules ()
					((_ args ...)
						(print "args:" args ...)))))))
(defitem x)

(x 1 2 3)

(Window
	bound: (x: 0 y: 0 w: 100 h: 200)
	(Columns
		margins: 10
		bounds: (center-of parent)
		(Text text: "1" on-click: (lambda() (print "1")))
		(Text text: "2")
		(Text text: "3")))

(define (parent item)
  ... get the parent of item somehow ...)

(define (center-of accessor)
  (lambda (item)
    (calculate-center-of (accessor item))))

(define-syntax defitem
	(syntax-rules ()
		((_ name)
			(define-syntax name
				(syntax-rules ::: ()
					((_ args :::)
						(print "args:" args :::)))))))