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 aaa5cdaeb9e8ff2471bf431eb0a81f6a308b9002..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
 
@@ -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
-            }
         }
     }
     {
@@ -411,7 +407,10 @@ CONSTANT: all-primitives {
     {
         "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
@@ -782,8 +781,8 @@ CONSTANT: all-primitives {
     {
         "tools.profiler.sampling.private"
         {
-            { "profiling" ( n -- ) "sampling_profiler" { object } { } f }
-            { "(get-samples)" ( -- samples/f ) "get_samples" { } { object } f }
+            { "set-profiling" ( n -- ) "set_profiling" { object } { } f }
+            { "get-samples" ( -- samples/f ) "get_samples" { } { object } f }
         }
     }
     {