15 lines
364 B
Scheme
15 lines
364 B
Scheme
;; -*- mode: scheme; coding: utf-8 -*-
|
|
;; SPDX-License-Identifier: CC0-1.0
|
|
#!r6rs
|
|
|
|
;; TODO: Get a writer that outputs with R7RS syntax.
|
|
|
|
(library (scheme write)
|
|
(export
|
|
display write
|
|
(rename (write-with-shared-structure write-shared))
|
|
(rename (write write-simple))) ;TODO: not correct
|
|
(import
|
|
(rnrs)
|
|
(srfi :38 with-shared-structure)))
|