Add compile-dependencies? flag, can be switched off for debugging
parent
b2ade7f556
commit
8eacd0e58b
|
@ -73,9 +73,14 @@ SYMBOL: +failed+
|
||||||
] [ drop ] if
|
] [ drop ] if
|
||||||
] tri ;
|
] tri ;
|
||||||
|
|
||||||
|
! Only switch this off for debugging.
|
||||||
|
SYMBOL: compile-dependencies?
|
||||||
|
|
||||||
|
t compile-dependencies? set-global
|
||||||
|
|
||||||
: save-asm ( asm -- )
|
: save-asm ( asm -- )
|
||||||
[ [ code>> ] [ label>> ] bi compiled get set-at ]
|
[ [ code>> ] [ label>> ] bi compiled get set-at ]
|
||||||
[ calls>> [ maybe-compile ] each ]
|
[ compile-dependencies? get [ calls>> [ maybe-compile ] each ] [ drop ] if ]
|
||||||
bi ;
|
bi ;
|
||||||
|
|
||||||
: backend ( nodes word -- )
|
: backend ( nodes word -- )
|
||||||
|
|
Loading…
Reference in New Issue