1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
6 PRIMITIVE: drop-locals ( n -- )
7 PRIMITIVE: get-local ( n -- obj )
8 PRIMITIVE: load-local ( obj -- )
9 PRIMITIVE: load-locals ( ... n -- )
11 : local-value ( box -- value ) 2 slot ; inline
13 : set-local-value ( value box -- ) 2 set-slot ; inline