Paste: basic sandboxing

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

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

New Annotation

Summary:
Author:
Mode:
Body: