7 lines
148 B
Racket
7 lines
148 B
Racket
#lang racket/base
|
|
|
|
(provide read read-syntax)
|
|
|
|
(define (read in) (list (read-string 5 in)))
|
|
(define (read-syntax src in) (list (read-string 5 in)))
|