1#lang racket/base
2(require racket/fasl)
3
4(provide fasl->s-exp/intern)
5
6(define (fasl->s-exp/intern s)
7  (fasl->s-exp s #:datum-intern? #t))
8