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

Merge commit 'origin/master' into emacs

db4
Jose A. Ortega Ruiz 2009-01-25 03:23:36 +01:00
parent b1d0f90567 622015adab
commit 5b571d60f4
5 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/compiler.factor
View File

@ -110,7 +110,7 @@ t compile-dependencies? set-global
[ (compile) yield-hook get call ] slurp-deque ; [ (compile) yield-hook get call ] slurp-deque ;
: decompile ( word -- ) : decompile ( word -- )
f 2array 1array t modify-code-heap ; f 2array 1array modify-code-heap ;
: optimized-recompile-hook ( words -- alist ) : optimized-recompile-hook ( words -- alist )
[ [

2
basis/stack-checker/known-words/known-words.factor
View File

@ -643,7 +643,7 @@ M: object infer-call*
\ dll-valid? { object } { object } define-primitive \ dll-valid? { object } { object } define-primitive
\ modify-code-heap { array object } { } define-primitive \ modify-code-heap { array } { } define-primitive
\ unimplemented { } { } define-primitive \ unimplemented { } { } define-primitive

2
basis/ui/gadgets/gadgets.factor
View File

@ -315,7 +315,7 @@ SYMBOL: in-layout?
: (screen-rect) ( gadget -- loc ext ) : (screen-rect) ( gadget -- loc ext )
dup parent>> [ dup parent>> [
[ rect-extent ] dip (screen-rect) [ rect-extent ] dip (screen-rect)
[ [ nip ] [ v+ ] 2bi ] dip [ vmin ] [ v+ ] 2bi* [ [ nip ] [ v+ ] 2bi ] dip [ v+ ] [ vmin ] 2bi*
] [ ] [
rect-extent rect-extent
] if* ; ] if* ;

2
core/compiler/units/units-tests.factor
View File

@ -11,7 +11,7 @@ accessors namespaces fry ;
! Non-optimizing compiler bugs ! Non-optimizing compiler bugs
[ 1 1 ] [ [ 1 1 ] [
"A" "B" <word> [ [ 1 ] dip ] >>def dup f 2array 1array f modify-code-heap "A" "B" <word> [ [ 1 ] dip ] >>def dup f 2array 1array modify-code-heap
1 swap execute 1 swap execute
] unit-test ] unit-test

6
core/compiler/units/units.factor
View File

@ -66,9 +66,7 @@ GENERIC: definitions-changed ( assoc obj -- )
dup dup changed-vocabs update ; dup dup changed-vocabs update ;
: compile ( words -- ) : compile ( words -- )
recompile-hook get call recompile-hook get call modify-code-heap ;
dup [ drop crossref? ] assoc-contains?
modify-code-heap ;
SYMBOL: outdated-tuples SYMBOL: outdated-tuples
SYMBOL: update-tuples-hook SYMBOL: update-tuples-hook
@ -145,7 +143,7 @@ SYMBOL: remake-generics-hook
call-recompile-hook call-recompile-hook
call-update-tuples-hook call-update-tuples-hook
unxref-forgotten-definitions unxref-forgotten-definitions
dup [ drop crossref? ] assoc-contains? modify-code-heap ; modify-code-heap ;
: with-nested-compilation-unit ( quot -- ) : with-nested-compilation-unit ( quot -- )
[ [