Merge branch 'master' of git://factorcode.org/git/factor
commit
50705c1dce
|
@ -19,10 +19,10 @@ STRUCT: context
|
||||||
: context-field-offset ( field -- offset ) context offset-of ; inline
|
: context-field-offset ( field -- offset ) context offset-of ; inline
|
||||||
|
|
||||||
STRUCT: zone
|
STRUCT: zone
|
||||||
{ start cell }
|
|
||||||
{ here cell }
|
{ here cell }
|
||||||
{ size cell }
|
{ start cell }
|
||||||
{ end cell } ;
|
{ end cell }
|
||||||
|
{ size cell } ;
|
||||||
|
|
||||||
STRUCT: vm
|
STRUCT: vm
|
||||||
{ ctx context* }
|
{ ctx context* }
|
||||||
|
|
|
@ -6,17 +6,14 @@ kernel mason.common namespaces sequences ;
|
||||||
FROM: mason.config => target-os ;
|
FROM: mason.config => target-os ;
|
||||||
IN: mason.release.tidy
|
IN: mason.release.tidy
|
||||||
|
|
||||||
: common-files ( -- seq )
|
: useless-files ( -- seq )
|
||||||
"build-support/cleanup" ascii file-lines
|
"build-support/cleanup" ascii file-lines
|
||||||
images [ boot-image-name ] map
|
images [ boot-image-name ] map append
|
||||||
append ;
|
target-os get "macosx" = [ "Factor.app" suffix ] unless ;
|
||||||
|
|
||||||
: remove-common-files ( -- )
|
|
||||||
common-files [ really-delete-tree ] each ;
|
|
||||||
|
|
||||||
: remove-factor-app ( -- )
|
|
||||||
target-os get "macosx" =
|
|
||||||
[ "Factor.app" really-delete-tree ] unless ;
|
|
||||||
|
|
||||||
: tidy ( -- )
|
: tidy ( -- )
|
||||||
"factor" [ remove-factor-app remove-common-files ] with-directory ;
|
"factor" [
|
||||||
|
useless-files
|
||||||
|
[ exists? ] filter
|
||||||
|
[ really-delete-tree ] each
|
||||||
|
] with-directory ;
|
||||||
|
|
Loading…
Reference in New Issue