Paste: hooks alternative

Author: Maxim Savchenko
Mode: factor
Date: Fri, 3 Apr 2009 21:28:02
Plain Text |
SYNTAX: FALLBACK:
    CREATE-CLASS dup define-singleton-class \ ; parse-until
    [ [ 1quotation [ get ] prepose ] [ create-method-in ] 2bi swap define ]
    each drop ;

New Annotation

Summary:
Author:
Mode:
Body: