basis: Re-enable some things I commented out. Fixes #22. Thanks @ajvondrak!
parent
8b44af4717
commit
262eb73ea6
|
@ -145,11 +145,11 @@ M: x86.64 (cpuid) ( rax rcx regs -- )
|
||||||
|
|
||||||
! The result of reading 4 bytes from memory is a fixnum on
|
! The result of reading 4 bytes from memory is a fixnum on
|
||||||
! x86-64.
|
! x86-64.
|
||||||
! enable-alien-4-intrinsics
|
enable-alien-4-intrinsics
|
||||||
|
|
||||||
{
|
{
|
||||||
{ [ os unix? ] [ "cpu.x86.64.unix" require ] }
|
{ [ os unix? ] [ "cpu.x86.64.unix" require ] }
|
||||||
{ [ os windows? ] [ "cpu.x86.64.windows" require ] }
|
{ [ os windows? ] [ "cpu.x86.64.windows" require ] }
|
||||||
} cond
|
} cond
|
||||||
|
|
||||||
! check-cpu-features
|
check-cpu-features
|
||||||
|
|
|
@ -31,9 +31,9 @@ HOOK: set-os-envs-pointer os ( malloc -- )
|
||||||
} cond
|
} cond
|
||||||
|
|
||||||
[
|
[
|
||||||
! "FACTOR_ROOTS" os-env
|
"FACTOR_ROOTS" os-env
|
||||||
! [
|
[
|
||||||
! os windows? ";" ":" ? split
|
os windows? ";" ":" ? split
|
||||||
! [ add-vocab-root ] each
|
[ add-vocab-root ] each
|
||||||
! ] when*
|
] when*
|
||||||
] "environment" add-startup-hook
|
] "environment" add-startup-hook
|
||||||
|
|
Loading…
Reference in New Issue