factor/basis/locals/backend/backend.factor

! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: slots.private ;
IN: locals.backend

PRIMITIVE: drop-locals ( n -- )
PRIMITIVE: get-local ( n -- obj )
PRIMITIVE: load-local ( obj -- )
PRIMITIVE: load-locals ( ... n -- )

: local-value ( box -- value ) 2 slot ; inline

: set-local-value ( value box -- ) 2 set-slot ; inline
Add copyright 2008-07-23 01:16:49 -04:00			`! Copyright (C) 2008 Slava Pestov.`
			`! See http://factorcode.org/license.txt for BSD license.`
load-locals is a primitive now, change semantics of get-locals to bum out 2 instructions from the sub-primitive 2008-11-27 23:30:29 -05:00			`USING: slots.private ;`
More efficient locals 2008-04-17 04:05:36 -04:00			`IN: locals.backend`

primitives: Change PRIMITIVE: to check that the word is in that vocabulary and the stack effect is correct. Use PRIMITIVE: in core/ and basis/ 2015-06-25 21:02:03 -04:00			`PRIMITIVE: drop-locals ( n -- )`
			`PRIMITIVE: get-local ( n -- obj )`
			`PRIMITIVE: load-local ( obj -- )`
			`PRIMITIVE: load-locals ( ... n -- )`

define-inline now takes an effect parameter C: now sets the stack effect of the new word to slot names add new basis/constants vocab; CONSTANT: foo bar is equivalent to : foo bar ; inline (going to fold CONSTANT:, ALIAS: and qualified into core soon perhaps) tighten the screws: inline words now need a stack declaration too update some usages of inline words 2008-12-15 20:44:56 -05:00			`: local-value ( box -- value ) 2 slot ; inline`
More efficient locals 2008-04-17 04:05:36 -04:00
define-inline now takes an effect parameter C: now sets the stack effect of the new word to slot names add new basis/constants vocab; CONSTANT: foo bar is equivalent to : foo bar ; inline (going to fold CONSTANT:, ALIAS: and qualified into core soon perhaps) tighten the screws: inline words now need a stack declaration too update some usages of inline words 2008-12-15 20:44:56 -05:00			`: set-local-value ( value box -- ) 2 set-slot ; inline`