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