Permalink
Fetching contributors…
Cannot retrieve contributors at this time
5 lines (4 sloc) 137 Bytes
;;; File: "m2.scm"
(c-declare "extern int power_of_2 ();")
(define pow2 (c-lambda (int) int "power_of_2"))
(define (twice x) (cons x x))