Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

31 lines (26 sloc) 1.008 kb
;; Copyright (c) 2009 Derick Eddington. All rights reserved.
;; Licensed under an MIT-style license. My license is in the file
;; named LICENSE from the original collection this file is distributed
;; with. If this file is redistributed with some other collection, my
;; license must also be included.
(library (surfage s38 with-shared-structure)
(export
write-with-shared-structure
(rename (write-with-shared-structure write/ss))
read-with-shared-structure
(rename (read-with-shared-structure read/ss)))
(import
(rnrs)
(only (ikarus) print-graph parameterize))
(define write-with-shared-structure
(case-lambda
[(obj)
(write-with-shared-structure obj (current-output-port))]
[(obj port)
(parameterize ([print-graph #t])
(write obj port))]
[(obj port optarg)
(assertion-violation 'write-with-shared-structure
"this implementation does not support optarg")]))
(define read-with-shared-structure read)
)
Jump to Line
Something went wrong with that request. Please try again.