Welcome to the CHICKEN Scheme pasting service
neseted macro args pasted by rivo on Wed Apr 17 17:48:53 2013
(define-syntax defitem (syntax-rules () ((_ name) (define-syntax name (syntax-rules () ((_ args ...) (print "args:" args ...))))))) (defitem x) (x 1 2 3)
no title pasted by rivo on Wed Apr 17 18:05:51 2013
(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")))parent, center-of pasted by DerGuteMoritz on Wed Apr 17 18:11:24 2013
(define (parent item) ... get the parent of item somehow ...) (define (center-of accessor) (lambda (item) (calculate-center-of (accessor item))))
no title added by rivo on Wed Apr 17 20:42:38 2013
(define-syntax defitem
(syntax-rules ()
((_ name)
(define-syntax name
(syntax-rules ::: ()
((_ args :::)
(print "args:" args :::)))))))