Paste: sto

Author: dharmatech
Mode: factor
Date: Tue, 4 Nov 2008 18:57:23
Plain Text | 
USING: kernel lexer parser words quotations compiler.units ;

IN: sto

: sto
  \ 1quotation parsed
  scan
    current-vocab create
    dup set-word
    dup "t" "val" set-word-prop
  literalize parsed
  \ swap parsed
  [ define ] parsed
  \ with-compilation-unit parsed ;                              parsing

New Annotation

Summary:
Author:
Mode:
Body: