1\ ** ficl/softwords/ifbrack.fr
2\ ** ANS conditional compile directives [if] [else] [then]
3\ ** Requires ficl 2.0 or greater...
4
| 1\ ** ficl/softwords/ifbrack.fr
2\ ** ANS conditional compile directives [if] [else] [then]
3\ ** Requires ficl 2.0 or greater...
4
|
5\ $FreeBSD: head/sys/boot/ficl/softwords/ifbrack.fr 51786 1999-09-29 04:43:16Z dcs $
| 5\ $FreeBSD: head/sys/boot/ficl/softwords/ifbrack.fr 76116 2001-04-29 02:36:36Z dcs $
|
6
| 6
|
7hidden dup >search ficl-set-current
| 7hide
|
8
9: ?[if] ( c-addr u -- c-addr u flag )
10 2dup 2dup
11 s" [if]" compare 0= >r
12 s" [IF]" compare 0= r>
13 or
14;
15
--- 41 unchanged lines hidden --- | 8
9: ?[if] ( c-addr u -- c-addr u flag )
10 2dup 2dup
11 s" [if]" compare 0= >r
12 s" [IF]" compare 0= r>
13 or
14;
15
--- 41 unchanged lines hidden --- |