mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-19 05:39:17 +02:00
12 lines
236 B
Scheme
12 lines
236 B
Scheme
(define-library (scheme write)
|
|
(export
|
|
write
|
|
)
|
|
(import (scheme base))
|
|
(begin
|
|
(define (write obj . port)
|
|
(if (null? port)
|
|
(Cyc-write obj (current-output-port))
|
|
(Cyc-write obj (car port))))
|
|
)
|
|
)
|