如何检查/导出/序列化（贵族）计划环境

(map (lambda (var val) (display (quasiquote (define ,var ,val))
                       (newline))
     (get-current-environment))

map

(define (get-current-binding-list)
        (let* ((e (current-module))  ;; assume checking current-module

               (h (struct-ref e 0))  ;; index 0 is current vars hashtable
              )
       (hash-map->list cons h)  ;; return a vars binding list
    ))

(define abc 5)

(let ((vl (get-current-binding-list)))
      (assoc-ref vl \'abc)
      )

#<variable 9bb5108 value: 5>