conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Added put-datum.

This commit is contained in:
Abdulaziz Ghuloum 2007-11-22 14:48:29 -05:00
parent 63f656896f
commit d227b28a58
5 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
doc/ikarus-users-guide.tex
View File

@ -1876,10 +1876,8 @@ port-has-set-port-position!? set-port-position!
call-with-port close-port call-with-port close-port
get-bytevector-all get-bytevector-some get-bytevector-all get-bytevector-some
get-bytevector-n get-bytevector-n! get-bytevector-n get-bytevector-n!
lookahead-char lookahead-char lookahead-u8
lookahead-u8
get-string-all get-string-n get-string-n! put-string get-string-all get-string-n get-string-n! put-string
get-datum put-datum
make-custom-binary-input-port make-custom-binary-input/output-port make-custom-binary-input-port make-custom-binary-input/output-port
make-custom-binary-output-port make-custom-textual-input-port make-custom-binary-output-port make-custom-textual-input-port
make-custom-textual-input/output-port make-custom-textual-output-port make-custom-textual-input/output-port make-custom-textual-output-port

11
scheme/ikarus.writer.ss
View File

@ -15,7 +15,8 @@
(library (ikarus writer) (library (ikarus writer)
(export write display format printf fprintf print-error print-unicode print-graph) (export write display format printf fprintf print-error print-unicode print-graph
put-datum)
(import (import
(rnrs hashtables) (rnrs hashtables)
(ikarus system $chars) (ikarus system $chars)
@ -28,7 +29,8 @@
(ikarus system $transcoders) (ikarus system $transcoders)
(only (ikarus unicode-data) unicode-printable-char?) (only (ikarus unicode-data) unicode-printable-char?)
(except (ikarus) (except (ikarus)
write display format printf fprintf print-error print-unicode print-graph)) write display format printf fprintf print-error print-unicode print-graph
put-datum))
(define print-unicode (define print-unicode
(make-parameter #t)) (make-parameter #t))
@ -756,6 +758,11 @@
(error 'write "not an output port" p)) (error 'write "not an output port" p))
(write-to-port x p)])) (write-to-port x p)]))
(define (put-datum p x)
(unless (output-port? p)
(error 'put-datum "not an output port" p))
(write-to-port x p))
(define display (define display
(case-lambda (case-lambda
[(x) (display-to-port x (current-output-port))] [(x) (display-to-port x (current-output-port))]

2
scheme/last-revision
View File

@ -1 +1 @@
1107 1108

2
scheme/makefile.ss
View File

@ -1137,7 +1137,7 @@
[port? i r ip] [port? i r ip]
[put-bytevector r ip] [put-bytevector r ip]
[put-char i r ip] [put-char i r ip]
[put-datum r ip] [put-datum i r ip]
[put-string r ip] [put-string r ip]
[put-u8 i r ip] [put-u8 i r ip]
[set-port-position! r ip] [set-port-position! r ip]

2
scheme/todo-r6rs.ss
View File

@ -642,7 +642,7 @@
[port? C ip] [port? C ip]
[put-bytevector S ip] [put-bytevector S ip]
[put-char C ip] [put-char C ip]
[put-datum S ip] [put-datum C ip]
[put-string S ip] [put-string S ip]
[put-u8 C ip] [put-u8 C ip]
[set-port-position! S ip] [set-port-position! S ip]