Add compile-dependencies? flag, can be switched off for debugging

db4
Slava Pestov 2008-10-12 17:37:42 -05:00
parent b2ade7f556
commit 8eacd0e58b
1 changed files with 6 additions and 1 deletions

View File

@ -73,9 +73,14 @@ SYMBOL: +failed+
] [ drop ] if
] tri ;
! Only switch this off for debugging.
SYMBOL: compile-dependencies?
t compile-dependencies? set-global
: save-asm ( asm -- )
[ [ code>> ] [ label>> ] bi compiled get set-at ]
[ calls>> [ maybe-compile ] each ]
[ compile-dependencies? get [ calls>> [ maybe-compile ] each ] [ drop ] if ]
bi ;
: backend ( nodes word -- )