VM: let's merge (save-image) and (save-image-and-exit) into one 3

[factor.git] / core / memory / memory.factor

diff --git a/core/memory/memory.factor b/core/memory/memory.factor
index f9daf425e81dbac8fd603025179107192dd7fe72..aa7e33a81c734340133cdd8fa84c33beb255ae61 100644 (file)
--- a/core/memory/memory.factor
+++ b/core/memory/memory.factor
@@ -11,8 +11,7 @@ PRIMITIVE: minor-gc ( -- )
 PRIMITIVE: size ( obj -- n )
 
 <PRIVATE
-PRIMITIVE: (save-image) ( path1 path2 -- )
-PRIMITIVE: (save-image-and-exit) ( path1 path2 -- )
+PRIMITIVE: (save-image) ( path1 path2 then-die? -- )
 PRIVATE>
 
 : instances ( quot -- seq )
@@ -23,9 +22,9 @@ PRIVATE>
     [ native-string>alien ] bi@ ;
 
 : save-image ( path -- )
-    normalize-path saving-path (save-image) ;
+    normalize-path saving-path f (save-image) ;
 
 : save-image-and-exit ( path -- )
-    normalize-path saving-path (save-image-and-exit) ;
+    normalize-path saving-path t (save-image) ;
 
 : save ( -- ) image save-image ;