source: project/s11n/trunk/x.scm @ 6676

Last change on this file since 6676 was 6676, checked in by Tony Sidaway, 13 years ago

Refactoring directory structure in preparation for working on this package.

File size: 333 bytes
Line 
1(load "s11n.so")
2
3(define (save x)
4  (print "saving...")
5  (call-with-current-continuation
6   (lambda (k)
7     (with-output-to-file "out.data" (cut serialize k)) ) )
8  (print "continue: " x) )
9
10(if (member "-save" (command-line-arguments))
11    (save '(1 2 3))
12    ((with-input-from-file "out.data" deserialize) #f) )
13
14(print "end.")
Note: See TracBrowser for help on using the repository browser.