basis: Re-enable some things I commented out. Fixes #22. Thanks @ajvondrak!

db4
Doug Coleman 2012-12-31 11:44:28 -08:00
parent 8b44af4717
commit 262eb73ea6
2 changed files with 7 additions and 7 deletions

View File

@ -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

View File

@ -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