Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (9 sloc) 307 Bytes
(require (fs "fs"))
(let ((src (fs.readFileSync "runtime.ol" "utf-8"))
(src (read src)))
(for-each (lambda (f)
(if (== (car f) 'define)
(pp (if (list? (cadr f))
(car (cadr f))
(cadr f)))))
(cdr src)))