ast-foreign

Vocabulary

smalltalk.ast

Definition

USING: strings ;

IN: smalltalk.ast

TUPLE: ast-foreign
    { class string initial: "" } { name string initial: "" } ;

Methods

USING: accessors kernel smalltalk.ast smalltalk.classes
smalltalk.compiler splitting words ;

M: ast-foreign compile-ast
    nip
    [ class>> [ ":" split1 lookup-word ] [ no-word ] ?unless ]
    [ name>> ] bi define-foreign [ nil ] ;