primitives: Change PRIMITIVE: to check that the word is in that vocabulary and the...

[factor.git] / basis / locals / backend / backend.factor

diff --git a/basis/locals/backend/backend.factor b/basis/locals/backend/backend.factor
index 1c1f288797924b5428463c32733c5ff0814ee100..5f0cf9963f72c4853e4201811d036217da44a2c3 100644 (file)
--- a/basis/locals/backend/backend.factor
+++ b/basis/locals/backend/backend.factor
@@ -3,6 +3,11 @@
 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