boxing.factor: Change Stack Effects

diff --git a/basis/compiler/cfg/builder/alien/boxing/boxing.factor b/basis/compiler/cfg/builder/alien/boxing/boxing.factor
index 689431a0e89d8545ccff1b97f042fe65c8088ae7..e0fcc580276092e327da9bd9c821b47b137a3c7e 100644 (file)
--- a/basis/compiler/cfg/builder/alien/boxing/boxing.factor
+++ b/basis/compiler/cfg/builder/alien/boxing/boxing.factor
@@ -12,18 +12,22 @@ SYMBOL: struct-return-area
 
 SYMBOLS: int-reg-reps float-reg-reps ;
 
+<PRIVATE
+
 : inc-not-f ( variable -- ) dup get [ inc ] [ drop ] if ; inline
 
 : dec-not-f ( variable -- ) dup get [ dec ] [ drop ] if ; inline
 
-: record-reg-reps ( seq -- seq )
+PRIVATE>
+
+: record-reg-reps ( reps -- reps )
     dup [
         dup second not [  ! on-stack?: f 
             first int-rep? int-reg-reps float-reg-reps ? inc-not-f
         ] [ drop ] if
     ] each ;
 
-: unrecord-reg-reps ( seq -- seq )
+: unrecord-reg-reps ( reps -- reps )
     dup [
         dup second not [  ! on-stack?: f 
             first int-rep? int-reg-reps float-reg-reps ? dec-not-f