19 lines
375 B
Scheme
19 lines
375 B
Scheme
#!r6rs
|
|
;; -*- mode: scheme; coding: utf-8 -*-
|
|
;; SPDX-License-Identifier: CC0-1.0
|
|
|
|
(library (scheme read)
|
|
(export
|
|
read)
|
|
(import
|
|
(except (rnrs) read)
|
|
(laesare reader))
|
|
|
|
(define read
|
|
(case-lambda
|
|
(() (read (current-input-port)))
|
|
((port)
|
|
(let ((reader (make-reader port #f)))
|
|
(reader-mode-set! reader 'r7rs)
|
|
(read-datum reader))))))
|