aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/tools/bracket-conditional.frt
blob: 5df8c2843b5ea48f38575276dc52caebeafdc15f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

: [else]     \ ( -- )
    begin
        begin
            parse-name 
            dup
        while
            2dup s" [else]" icompare
            ?dup 0=
            if exit then
        repeat 2drop
        refill 0=
    until
; immediate

: [if]     \ ( flag -- )
    0= if postpone [else] then
; immediate

: [then] ; immediate