private/id-fmap.ss
(module id-fmap mzscheme
  (require 
   (prefix table: (planet "table.ss" ("soegaard" "galore.plt" 3))))
  
  (define (mk . args)
    (apply table:make-hashed (lambda (i) (eq-hash-code (syntax-e i))) module-identifier=? args))
  
  (provide mk (all-from (planet "table.ss" ("soegaard" "galore.plt" 3))))
  
  )