From 6b467f4452de8849132ddbc58e689dda3ca056c1 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 15 Oct 2012 09:44:30 +0900 Subject: [PATCH] Splitting write into write (cycles only) and write-shared. --- lib/scheme/write.sld | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lib/scheme/write.sld b/lib/scheme/write.sld index 7297bc44..4a2d7390 100644 --- a/lib/scheme/write.sld +++ b/lib/scheme/write.sld @@ -1,8 +1,10 @@ (define-library (scheme write) (import (rename (chibi) (write write-simple) (display display-simple)) - (rename (srfi 38) (write/ss write))) - (export display write write-simple) + (rename (srfi 38) (write/ss write-shared))) + (export display write write-shared write-simple) (begin (define (display x . o) - (apply (if (or (string? x) (char? x)) display-simple write) x o)))) + (apply (if (or (string? x) (char? x)) display-simple write) x o)) + (define (write x . o) + (write-shared x (if (pair? o) (car o) (current-output-port)) #t))))