shithub: sl

ref: 409a8dab1d8ef6cbd70b7c6b80c0ab8b7e9d2826
dir: /tools/disenv.sl/

#!/usr/bin/env sl
(for-each (lambda (e)
           (let ((v (top-level-value e)))
                (when (and (fn? v)
                           (not (builtin? v)))
                      (print e)
                      (newline)
                      (fn-disasm v)
                      (newline))))
          (environment))