fixed a bug in preference unmarshalling

svn: r10844
This commit is contained in:
Robby Findler 2008-07-20 19:02:09 +00:00
parent 258c569afe
commit 391272c73a

View File

@ -148,7 +148,7 @@
(and (list? l) (and (list? l)
(andmap (λ (x) (andmap (λ (x)
(and (list? x) (and (list? x)
(andmap string? x))) (andmap (λ (x) (or (string? x) (symbol? x))) x)))
l))) l)))
(inherit get-allow-sharing? get-use-function-output-syntax? (inherit get-allow-sharing? get-use-function-output-syntax?