;;; This file defines core symbols - those in PreludeCore and
;;; other Prelude symbols used in compilation.

;;; This part is constructed from the export table of PreludeCore
;;; by 'top/prelude-core-syms' and has been pasted in here.


(DEFINE *haskell-prelude-vars*
  '((CLASSES "Num"
             "Integral"
             "Eq"
             "Text"
             "Fractional"
             "RealFloat"
             "RealFrac"
             "Enum"
             "Ix"
             "Floating"
             "Ord"
             "Real"
             "Binary")
    (METHODS "fromInteger"
             "signum"
             "abs"
             "negate"
             "*"
             "-"
             "+"
             "toInteger"
             "odd"
             "even"
             "divMod"
             "quotRem"
             "mod"
             "div"
             "rem"
             "quot"
             "/="
             "=="
             "showList"
             "readList"
             "showsPrec"
             "readsPrec"
             "fromRational"
             "recip"
             "/"
             "scaleFloat"
             "significand"
             "exponent"
             "encodeFloat"
             "decodeFloat"
             "floatRange"
             "floatDigits"
             "floatRadix"
             "floor"
             "ceiling"
             "round"
             "truncate"
             "properFraction"
             "enumFromThenTo"
             "enumFromTo"
             "enumFromThen"
             "enumFrom"
             "inRange"
             "index"
             "range"
             "atanh"
             "acosh"
             "asinh"
             "tanh"
             "cosh"
             "sinh"
             "atan"
             "acos"
             "asin"
             "tan"
             "cos"
             "sin"
             "logBase"
             "**"
             "sqrt"
             "log"
             "exp"
             "pi"
             "min"
             "max"
             ">"
             ">="
             "<="
             "<"
             "toRational"
             "showBin"
             "readBin")
    (TYPES "Char"
           "Complex"
           "Integer"
           "Double"
           "Bin"
           "Array"
           "Float"
           "Bool"
           "Int"
           "Assoc"
           "Ratio"
           "SystemState"
           "IOResult")
    (CONSTRUCTORS ":+" "True" "False" ":=" ":")
    (SYNONYMS "ShowS" "ReadS" "String" "Rational" "IO")
    (VALUES)))

;;; Non PreludeCore stuff

;;; This table defines all symbols in the core used internally by the
;;; compiler.

(define *haskell-noncore-vars* '(
  (types 
     "List"
     "Arrow"
     "Request"
     "Response"
     "UnitType"
     "TupleDicts")
  (constructors 
     "MkFloat"
     "MkDouble"
     "MkChar"
     "MkInteger"
     "MkInt"
     "Nil"
     "UnitConstructor")
  (values
    "&&"  "||"  "primPlusInt"
    "++" "take" "drop" "." "showChar" "shows" "showString"
    "showParen" "lex" "readParen" "reads"
    "primShowBinInt" "primReadBinSmallInt"
    "error"
    "primIntegerToInt" "primIntToInteger"
    "primRationalToFloat" "primRationalToDouble"
    "primNegInt" "primNegInteger" "primNegFloat" "primNegDouble" 
    "foldr" "build" "inlineFoldr" "inlineBuild" 
    "primAppend" "primStringEq"
    "dictSel" "tupleEqDict" "tupleOrdDict" "tupleIxDict"
    "tupleTextDict" "tupleBinaryDict")))