Paste: Intern definition

Author: aceluck
Mode: factor
Date: Mon, 24 Mar 2014 04:00:33
Plain Text |
: intern ( string -- symbol )
    dup words-named dup empty?
    [ [ drop current-vocab create dup define-symbol ] with-compilation-unit ]
    [ 0 swap nth nip ] if ;

New Annotation

Summary:
Author:
Mode:
Body: