mes/bugs/c2.mes

33 lines
603 B
Plaintext

;; guile
#!
;;; compiling /home/janneke/src/mes/c2.mes
joepie-complie
;;; compiled /home/janneke/.cache/guile/ccache/2.2-LE-8-3.7/home/janneke/src/mes/c2.mes.go
joepie
jippie
!#
;;mes
(define-macro (bla naam de-lambda)
`(define-macro (,naam . rest)
(,de-lambda)))
(bla joepie
(let ()
(lambda ()
(list 'begin
(list 'display "joepie")
(list 'newline)
(and
(display "joepie-complie")
(newline)
"jippie")))))
(display "compiled")
(newline)
(display (joepie 'x))
(newline)