Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-20 14:19:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added write-string

Browse source
This commit is contained in:
Justin Ethier 2016-01-29 22:01:14 -05:00
parent fb74fa9d14
commit fa86dba6f0
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/base.sld
View file

@ -96,6 +96,7 @@
Cyc-remove-exception-handler
newline
write-char
write-string
flush-output-port
read-line
features
@ -170,7 +171,6 @@
; let-values
; letrec*
; letrec-syntax
; list-set!
; numerator
; open-input-string
; open-output-string
@ -182,7 +182,6 @@
; syntax-error
; syntax-rules
; textual-port?
; write-string
;;;;
)
(begin
@ -512,6 +511,10 @@
(if (null? port)
(Cyc-flush-output-port (current-output-port))
(Cyc-flush-output-port (car port))))
(define (write-string str . port)
(if (null? port)
(Cyc-display str (current-output-port))
(Cyc-display str (car port))))
(define (write-char char . port)
(if (null? port)
(Cyc-write-char char (current-output-port))