diff --git a/basis/compiler/cfg/linear-scan/allocation/allocation.factor b/basis/compiler/cfg/linear-scan/allocation/allocation.factor index d4f79e5cb3..f102a6ae9c 100644 --- a/basis/compiler/cfg/linear-scan/allocation/allocation.factor +++ b/basis/compiler/cfg/linear-scan/allocation/allocation.factor @@ -73,7 +73,7 @@ M: sync-point handle ( sync-point -- ) { { [ unhandled-intervals heap-empty? ] [ unhandled-sync-points ] } { [ unhandled-sync-points heap-empty? ] [ unhandled-intervals ] } - [ unhandled-sync-points unhandled-intervals smallest-heap ] + [ unhandled-intervals unhandled-sync-points smallest-heap ] } cond heap-pop drop handle ; : (allocate-registers) ( unhandled-intervals unhandled-sync-points -- )