From bb7777e0cfa64f7e45f6132e12fc62159bb065d0 Mon Sep 17 00:00:00 2001
From: kusumotonorio <47816570+kusumotonorio@users.noreply.github.com>
Date: Thu, 16 Jan 2020 23:34:24 +0900
Subject: [PATCH] boxing.factor: Change Stack Effects

---
 basis/compiler/cfg/builder/alien/boxing/boxing.factor | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/basis/compiler/cfg/builder/alien/boxing/boxing.factor b/basis/compiler/cfg/builder/alien/boxing/boxing.factor
index 689431a0e8..e0fcc58027 100644
--- 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