(module compat-for-399 mzscheme
  (require (planet "version-case.ss" ("dyoo" "version-case.plt" 1 4)))

  (version-case
   ((version< (version) "3.99")
    (provide get-struct-info-as-list)
    (define (get-struct-info-as-list x)
      x))
   
   (else
    ;; For 3.99:
    (require scheme/struct-info)
    (provide list-immutable get-struct-info-as-list)
    
    (define (list-immutable . a-list)
      a-list)
    (define (get-struct-info-as-list a-struct-info)
      (extract-struct-info a-struct-info)))))