From 03e956d72ed08a698f16edbeb2f5d685dea0c207 Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Fri, 19 Jun 2009 13:01:36 +0200 Subject: [PATCH] Automatically load needed vocabularies when deserializing words --- basis/serialize/serialize.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/serialize/serialize.factor b/basis/serialize/serialize.factor index 4e94b6a51d..b7e395fa35 100644 --- a/basis/serialize/serialize.factor +++ b/basis/serialize/serialize.factor @@ -12,7 +12,7 @@ vectors byte-arrays quotations hashtables assocs help.syntax help.markup splitting io.streams.byte-array io.encodings.string io.encodings.utf8 io.encodings.binary combinators accessors locals prettyprint compiler.units sequences.private -classes.tuple.private ; +classes.tuple.private vocabs.loader ; IN: serialize GENERIC: (serialize) ( obj -- ) @@ -202,7 +202,7 @@ SYMBOL: deserialized (deserialize-string) dup intern-object ; : deserialize-word ( -- word ) - (deserialize) (deserialize) 2dup lookup + (deserialize) (deserialize) 2dup [ require ] keep lookup dup [ 2nip ] [ drop 2array unparse "Unknown word: " prepend throw