5 ms·
(import (ice-9 match)) (define data '(display code)) (define code (let ((pe primitive-eval)) (match data ((fun arg ...) (lambda () (apply (pe fun
by ArneBab 8y ago
(import (ice-9 match))
(define data '(display code))
(define code
(let ((pe primitive-eval))
(match data ((fun arg ...)
(lambda () (apply (pe fun) arg))))))
(code)