Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-20 22:29:16 +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 Cyc-remove-exception-handler
newline newline
write-char write-char
write-string
flush-output-port flush-output-port
read-line read-line
features features
@ -170,7 +171,6 @@
; let-values ; let-values
; letrec* ; letrec*
; letrec-syntax ; letrec-syntax
; list-set!
; numerator ; numerator
; open-input-string ; open-input-string
; open-output-string ; open-output-string
@ -182,7 +182,6 @@
; syntax-error ; syntax-error
; syntax-rules ; syntax-rules
; textual-port? ; textual-port?
; write-string
;;;; ;;;;
) )
(begin (begin
@ -512,6 +511,10 @@
(if (null? port) (if (null? port)
(Cyc-flush-output-port (current-output-port)) (Cyc-flush-output-port (current-output-port))
(Cyc-flush-output-port (car 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) (define (write-char char . port)
(if (null? port) (if (null? port)
(Cyc-write-char char (current-output-port)) (Cyc-write-char char (current-output-port))