add write/write-shared/display, but incomplete

This commit is contained in:
Yuichi Nishiwaki 2014-02-08 19:45:05 +09:00
parent 1adecf5cf5
commit 5d1c00bb06
1 changed files with 21 additions and 0 deletions

View File

@ -693,6 +693,27 @@
(export call-with-port)
(define-library (scheme write)
(import (scheme base))
;; FIXME
(define write write-simple)
(define write-shared write-simple)
(define (display obj . opts)
(let ((port (if (null? opts) (current-output-port) (car opts))))
(cond
((string? obj)
(write-string obj port))
((char? obj)
(write-char obj port))
((symbol? obj)
(write-string (symbol->string obj) port))
(else
(write obj port)))))
(export write write-shared display))
;;; Appendix A. Standard Libraries
;; CxR
(define-library (scheme cxr)