1 ! Copyright (C) 2005, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.strings io.backend kernel memory.private sequences
7 : instances ( quot -- seq )
8 [ all-instances ] dip filter ; inline
10 : saving-path ( path -- saving-path path )
11 [ ".saving" append ] keep
12 [ native-string>alien ] bi@ ;
14 : save-image ( path -- )
15 normalize-path saving-path (save-image) ;
17 : save-image-and-exit ( path -- )
18 normalize-path saving-path (save-image-and-exit) ;
20 : save ( -- ) image save-image ;