home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
gofer230.zip
/
Progs
/
Gofer
/
Lib
/
min.prelude
< prev
next >
Wrap
Text File
|
1994-06-23
|
1KB
|
32 lines
-- __________ __________ __________ __________ ________
-- / _______/ / ____ / / _______/ / _______/ / ____ \
-- / / _____ / / / / / /______ / /______ / /___/ /
-- / / /_ / / / / / / _______/ / _______/ / __ __/
-- / /___/ / / /___/ / / / / /______ / / \ \
-- /_________/ /_________/ /__/ /_________/ /__/ \__\
--
-- Functional programming environment, Version 2.30
-- Copyright Mark P Jones 1991-1994.
--
-- Minimal Gofer prelude for experimentation with different approaches
-- to standard operations.
--
-- Any Gofer prelude file should typically include at least the following
-- definitions:
infixr 5 :
infixr 3 &&
infixr 2 ||
(&&), (||) :: Bool -> Bool -> Bool
False && _ = False -- (&&) and (||) names predefined in Gofer
True && x = x
False || x = x
True || _ = True
flip :: (a -> b -> c) -> b -> a -> c
flip f x y = f y x
primitive error "primError" :: String -> a