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
{
"io.files.private"
{
- { "(exists?)" ( path -- ? ) "existsp" { string } { object } f }
+ { "(file-exists?)" ( path -- ? ) "existsp" { string } { object } f }
}
}
{
"strip-stack-traces" ( -- ) "strip_stack_traces"
{ } { } f
}
- {
- "unimplemented" ( -- * ) "unimplemented"
- { } { } f
- }
}
}
{
"(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
{
{
"array>quotation" ( array -- quot ) "array_to_quotation"
- { array } { quotation } make-foldable
+ { array } { quotation } make-flushable
}
}
}
"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 }
}
}
{
"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 }
}
}
{