do-expressions ( seq -- )

Vocabulary

fjsc

Inputs

seq

an object

Outputs

None

Definition

USING: kernel make sequences ;

IN: fjsc

: do-expressions ( seq -- )
    dup empty? not [
        unclip dup ast-comment? not
        [ "function() {" , (compile) do-expressions ")}" , ]
        [ drop do-expressions ] if
    ] [ drop "factor.cont.next" , ] if ;