turn off autouse for sandboxed code
parent
6b3f12861d
commit
784f34e49f
|
|
@ -10,7 +10,7 @@ SYMBOL: whitelist
|
||||||
|
|
||||||
: with-sandbox-vocabs ( quot -- )
|
: with-sandbox-vocabs ( quot -- )
|
||||||
"sandbox.syntax" load-vocab vocab-words 1vector
|
"sandbox.syntax" load-vocab vocab-words 1vector
|
||||||
use [ call ] with-variable ; inline
|
use [ auto-use? off call ] with-variable ; inline
|
||||||
|
|
||||||
: parse-sandbox ( lines assoc -- quot )
|
: parse-sandbox ( lines assoc -- quot )
|
||||||
whitelist [ [ parse-lines ] with-sandbox-vocabs ] with-variable ;
|
whitelist [ [ parse-lines ] with-sandbox-vocabs ] with-variable ;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue