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

Fix compile errors

db4
Slava Pestov 2008-12-05 09:04:16 -06:00
parent 0f8735554b
commit aa838dbc2d
5 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/codegen/fixup/fixup.factor
View File

@ -9,7 +9,7 @@ IN: compiler.codegen.fixup
GENERIC: fixup* ( obj -- ) GENERIC: fixup* ( obj -- )
: code-format 22 getenv ; : code-format ( -- n ) 22 getenv ;
: compiled-offset ( -- n ) building get length code-format * ; : compiled-offset ( -- n ) building get length code-format * ;

7
basis/compiler/tree/propagation/known-words/known-words.factor
View File

@ -144,10 +144,9 @@ most-negative-fixnum most-positive-fixnum [a,b]
comparison-ops comparison-ops
[ dup '[ _ define-comparison-constraints ] each-derived-op ] each [ dup '[ _ define-comparison-constraints ] each-derived-op ] each
generic-comparison-ops [ ! generic-comparison-ops [
dup specific-comparison ! dup specific-comparison define-comparison-constraints
'[ _ _ define-comparison-constraints ] each-derived-op ! ] each
] each
! Remove redundant comparisons ! Remove redundant comparisons
: fold-comparison ( info1 info2 word -- info ) : fold-comparison ( info1 info2 word -- info )

2
basis/stack-checker/backend/backend.factor
View File

@ -148,7 +148,7 @@ M: object apply-object push-literal ;
{ [ dup inline? ] [ drop f ] } { [ dup inline? ] [ drop f ] }
{ [ dup deferred? ] [ drop f ] } { [ dup deferred? ] [ drop f ] }
{ [ dup crossref? not ] [ drop f ] } { [ dup crossref? not ] [ drop f ] }
[ def>> [ [ word? ] [ primitive? not ] bi and ] contains? ] [ def>> [ word? ] contains? ]
} cond ; } cond ;
: ?missing-effect ( word -- ) : ?missing-effect ( word -- )

6
basis/threads/threads.factor
View File

@ -36,7 +36,7 @@ sleep-entry ;
: tchange ( key quot -- ) : tchange ( key quot -- )
tnamespace swap change-at ; inline tnamespace swap change-at ; inline
: threads 64 getenv ; : threads ( -- assoc ) 64 getenv ;
: thread ( id -- thread ) threads at ; : thread ( id -- thread ) threads at ;
@ -73,9 +73,9 @@ PRIVATE>
: <thread> ( quot name -- thread ) : <thread> ( quot name -- thread )
\ thread new-thread ; \ thread new-thread ;
: run-queue 65 getenv ; : run-queue ( -- dlist ) 65 getenv ;
: sleep-queue 66 getenv ; : sleep-queue ( -- heap ) 66 getenv ;
: resume ( thread -- ) : resume ( thread -- )
f >>state f >>state

6
core/io/streams/c/c.factor
View File

@ -56,9 +56,9 @@ M: c-reader dispose*
M: c-io-backend init-io ; M: c-io-backend init-io ;
: stdin-handle 11 getenv ; : stdin-handle ( -- alien ) 11 getenv ;
: stdout-handle 12 getenv ; : stdout-handle ( -- alien ) 12 getenv ;
: stderr-handle 61 getenv ; : stderr-handle ( -- alien ) 61 getenv ;
: init-c-stdio ( -- stdin stdout stderr ) : init-c-stdio ( -- stdin stdout stderr )
stdin-handle <c-reader> stdin-handle <c-reader>