factor: trim using lists

[factor.git] / basis / bootstrap / image / primitives / primitives.factor

diff --git a/basis/bootstrap/image/primitives/primitives.factor b/basis/bootstrap/image/primitives/primitives.factor
index 9c971417f98a38894ae149c0b18437928c07f2c4..4514ae67bbf193cce12ecddb9c9a9fccf99cf491 100644 (file)
--- a/basis/bootstrap/image/primitives/primitives.factor
+++ b/basis/bootstrap/image/primitives/primitives.factor
@@ -1,5 +1,5 @@
 USING: alien alien.strings arrays assocs byte-arrays
-io.encodings.ascii kernel kernel.private locals math quotations
+io.encodings.ascii kernel kernel.private math quotations
 sequences sequences.generalizations sequences.private strings words ;
 IN: bootstrap.image.primitives
 
@@ -177,7 +177,7 @@ CONSTANT: all-primitives {
             {
                 "resize-byte-array" ( n byte-array -- new-byte-array )
                 "resize_byte_array"
-                { integer byte-array } { byte-array } f
+                { integer-array-capacity byte-array } { byte-array } f
             }
         }
     }
@@ -220,7 +220,7 @@ CONSTANT: all-primitives {
     {
         "io.files.private"
         {
-            { "(exists?)" ( path -- ? ) "existsp" { string } { object } f }
+            { "(file-exists?)" ( path -- ? ) "existsp" { string } { object } f }
         }
     }
     {
@@ -361,10 +361,6 @@ CONSTANT: all-primitives {
                 "strip-stack-traces" ( -- ) "strip_stack_traces"
                 { } { } f
             }
-            {
-                "unimplemented" ( -- * ) "unimplemented"
-                { } { } f
-            }
         }
     }
     {
@@ -404,14 +400,17 @@ CONSTANT: all-primitives {
                 "(format-float)" ( n fill width precision format locale -- byte-array )
                 "format_float"
                 { float byte-array fixnum fixnum byte-array byte-array } { byte-array }
-                make-foldable
+                make-flushable
             }
         }
     }
     {
         "math.private"
         {
-            { "both-fixnums?" ( x y -- ? ) f { object object } { object } f }
+            {
+                "both-fixnums?" ( x y -- ? ) f
+                { object object } { object } make-foldable
+            }
             {
                 "fixnum+fast" ( x y -- z ) f
                 { fixnum fixnum } { fixnum } make-foldable
@@ -689,7 +688,7 @@ CONSTANT: all-primitives {
         {
             {
                 "array>quotation" ( array -- quot ) "array_to_quotation"
-                { array } { quotation } make-foldable
+                { array } { quotation } make-flushable
             }
         }
     }
@@ -730,6 +729,8 @@ CONSTANT: all-primitives {
         "system"
         {
             { "(exit)" ( n -- * ) "exit" { integer } { } f }
+            { "disable-ctrl-break" ( -- ) "disable_ctrl_break" { } { } f }
+            { "enable-ctrl-break" ( -- ) "enable_ctrl_break" { } { } f }
             { "nano-count" ( -- ns ) "nano_count" { } { integer } make-flushable }
         }
     }
@@ -780,9 +781,8 @@ CONSTANT: all-primitives {
     {
         "tools.profiler.sampling.private"
         {
-            { "profiling" ( ? -- ) "sampling_profiler" { object } { } f }
-            { "(get-samples)" ( -- samples/f ) "get_samples" { } { object } f }
-            { "(clear-samples)" ( -- ) "clear_samples" { } { } f }
+            { "set-profiling" ( n -- ) "set_profiling" { object } { } f }
+            { "get-samples" ( -- samples/f ) "get_samples" { } { object } f }
         }
     }
     {