Re: Loading and saving scheme expressions

[Thien-Thi Nguyen]

   From: Joris van der Hoeven <address@hidden>
   Date: Sun, 9 Jun 2002 08:14:14 +0200 (MET DST)

   (set! var (load-expr "data-file"))
   (save-expr "data-file" '(1 2 3))

how about:

 (define (load-expr file)
   (read (open-file file OPEN_READ)))
 
 (define (save-expr file value)
   (write value (open-file file OPEN_WRITE))
   (flush-all-ports))
 
 ;;; testing
 (save-expr "xxx" '(1 2 3))
 (define var (load-expr "xxx"))
 (format #t "var: ~A\n" var)

note the call to `flush-all-ports'.  try this w/ "guile -s".

thi