Deleted Added
full compact
freebsd.fr (44774) freebsd.fr (50477)
1\ ** Copyright (c) 1998 Daniel C. Sobral <dcs@freebsd.org>
2\ ** All rights reserved.
3\ **
4\ ** Redistribution and use in source and binary forms, with or without
5\ ** modification, are permitted provided that the following conditions
6\ ** are met:
7\ ** 1. Redistributions of source code must retain the above copyright
8\ ** notice, this list of conditions and the following disclaimer.

--- 8 unchanged lines hidden (view full) ---

17\ ** FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18\ ** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19\ ** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20\ ** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21\ ** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22\ ** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23\ ** SUCH DAMAGE.
24\ **
1\ ** Copyright (c) 1998 Daniel C. Sobral <dcs@freebsd.org>
2\ ** All rights reserved.
3\ **
4\ ** Redistribution and use in source and binary forms, with or without
5\ ** modification, are permitted provided that the following conditions
6\ ** are met:
7\ ** 1. Redistributions of source code must retain the above copyright
8\ ** notice, this list of conditions and the following disclaimer.

--- 8 unchanged lines hidden (view full) ---

17\ ** FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18\ ** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19\ ** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20\ ** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21\ ** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22\ ** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23\ ** SUCH DAMAGE.
24\ **
25\ ** $Id: freebsd.fr,v 1.2 1999/02/28 02:10:14 dcs Exp $
25\ ** $FreeBSD: head/sys/boot/ficl/softwords/freebsd.fr 50477 1999-08-28 01:08:13Z peter $
26
27\ Words for use in scripts:
28\ % ignore errors here
29\ $ echo this line
30
31: tib> source >in @ tuck over >in ! - >r + r> ;
32: % tib> ['] evaluate catch drop ;
33: $ tib> 2dup type cr evaluate ;
34
35\ ** E N D F R E E B S D . F R
36
26
27\ Words for use in scripts:
28\ % ignore errors here
29\ $ echo this line
30
31: tib> source >in @ tuck over >in ! - >r + r> ;
32: % tib> ['] evaluate catch drop ;
33: $ tib> 2dup type cr evaluate ;
34
35\ ** E N D F R E E B S D . F R
36