13 lines
337 B
Racket
13 lines
337 B
Racket
#lang racket/base
|
|
|
|
(provide configure)
|
|
|
|
(require (only-in afl/reader make-afl-readtable))
|
|
|
|
(define (configure data)
|
|
(define old-read (current-read-interaction))
|
|
(define (new-read src in)
|
|
(parameterize ([current-readtable (make-afl-readtable (current-readtable))])
|
|
(old-read src in)))
|
|
(current-read-interaction new-read))
|