33 lines
603 B
Plaintext
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)
|
||
|
|
|