From 8cd2eee8e0c5ee71d1a3abd1e8b4cb12d2750ef2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Tue, 26 Aug 2014 20:40:01 +0200 Subject: [PATCH] compiler.codegen.gc-maps: the gc-map-needed? word can be called with f --- basis/compiler/codegen/gc-maps/gc-maps.factor | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/basis/compiler/codegen/gc-maps/gc-maps.factor b/basis/compiler/codegen/gc-maps/gc-maps.factor index e17c96c088..9f3743a8f3 100644 --- a/basis/compiler/codegen/gc-maps/gc-maps.factor +++ b/basis/compiler/codegen/gc-maps/gc-maps.factor @@ -30,11 +30,10 @@ IN: compiler.codegen.gc-maps SYMBOLS: return-addresses gc-maps ; - -: gc-map-needed? ( gc-map -- ? ) +: gc-map-needed? ( gc-map/f -- ? ) ! If there are no stack locations to scrub or check, and no GC ! roots, there's no point storing the GC map. - tuple-slots [ empty? ] all? not ; + dup [ tuple-slots [ empty? ] all? not ] when ; : gc-map-here ( gc-map -- ) dup gc-map-needed? [