core/locals/backend/backend.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: slots.private ;
   4 IN: locals.backend
   5
   6 PRIMITIVE: drop-locals ( n -- )
   7 PRIMITIVE: get-local ( n -- obj )
   8 PRIMITIVE: load-local ( obj -- )
   9 PRIMITIVE: load-locals ( ... n -- )
  10
  11 : local-value ( box -- value ) 2 slot ; inline
  12
  13 : set-local-value ( value box -- ) 2 set-slot ; inline