Paste: basic sandboxing

Author: Maxim Savchenko
Mode: factor
Date: Thu, 19 Mar 2009 20:52:58
Plain Text | 
{ "5 ." }
"prettyprint" vocab-words 1vector use
[
    [ parse-lines ]
    [ dup lexer-error? [ 2drop [ "ERROR!" . ] ]
    [ rethrow ] if
] recover

{ "USE: prettyprint 5 ." }
"prettyprint" vocab-words 1vector use
[
    [ parse-lines ]
    [ dup lexer-error? [ 2drop [ "ERROR!" . ] ]
    [ rethrow ] if
] recover

New Annotation

Summary:
Author:
Mode:
Body: