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
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