steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bootstrap.primitives: assoc-each to register builtins

locals-and-roots
Björn Lindqvist 2016-04-10 00:53:32 +02:00
parent e426e5c339
commit 4eadd4cbe0
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
core/bootstrap/primitives.factor
View File

@ -129,20 +129,23 @@ call( -- ) ! syntax-quot
: define-builtin ( symbol slotspec -- ) : define-builtin ( symbol slotspec -- )
[ [ define-builtin-predicate ] keep ] dip define-builtin-slots ; [ [ define-builtin-predicate ] keep ] dip define-builtin-slots ;
"fixnum" "math" create-word register-builtin {
"bignum" "math" create-word register-builtin { "alien" "alien" }
"tuple" "kernel" create-word register-builtin { "array" "arrays" }
"float" "math" create-word register-builtin { "bignum" "math" }
{ "byte-array" "byte-arrays" }
{ "callstack" "kernel" }
{ "dll" "alien" }
{ "fixnum" "math" }
{ "float" "math" }
{ "quotation" "quotations" }
{ "string" "strings" }
{ "tuple" "kernel" }
{ "word" "words" }
{ "wrapper" "kernel" }
} [ create-word register-builtin ] assoc-each
"f" "syntax" lookup-word register-builtin "f" "syntax" lookup-word register-builtin
"array" "arrays" create-word register-builtin
"wrapper" "kernel" create-word register-builtin
"callstack" "kernel" create-word register-builtin
"string" "strings" create-word register-builtin
"quotation" "quotations" create-word register-builtin
"dll" "alien" create-word register-builtin
"alien" "alien" create-word register-builtin
"word" "words" create-word register-builtin
"byte-array" "byte-arrays" create-word register-builtin
! We need this before defining c-ptr below ! We need this before defining c-ptr below
"f" "syntax" lookup-word { } define-builtin "f" "syntax" lookup-word { } define-builtin