factor/basis/locals/backend/backend.factor

12 lines
338 B
Factor
Raw Normal View History

2008-07-23 01:16:49 -04:00
! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
2008-10-23 06:49:32 -04:00
USING: math.private kernel slots.private sequences effects words ;
2008-04-17 04:05:36 -04:00
IN: locals.backend
: load-locals ( n -- )
2008-10-23 06:49:32 -04:00
dup 0 eq? [ drop ] [ swap >r 1 fixnum-fast load-locals ] if ;
2008-04-17 04:05:36 -04:00
: local-value 2 slot ; inline
: set-local-value 2 set-slot ; inline