osa1

diff --git a/CMakeLists.txt b/CMakeLists.txt
index a4dcf97..8878284 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -557,27 +557,10 @@ if(OPENAL_FOUND)
 endif()
 
 if(NOT ANDROID)
-	if(NOT ${CMAKE_SYSTEM_NAME} MATCHES "Darwin")
-		include(FindSDL2 OPTIONAL)

osa1

ghci> putStr $ runProg "main = S K K 3"
   1) Stk  [   1: NSupercomb main [  ] ]
      Heap [   1: NSupercomb main [  ]
               2: NSupercomb I [ x ]
               3: NSupercomb K [ x y ]
               4: NSupercomb K1 [ x y ]
               5: NSupercomb S [ f g x ]
               6: NSupercomb compose [ f g x ]
               7: NSupercomb twice [ f ] ]
      

osa1

[20:25] --> minerva ([email protected]) has joined this channel.
[20:25] <minerva> hello all
[20:25] <YHWH> yo
[20:25] <minerva> i need some advice from some guys
[20:26] <YHWH> most of us are guys
[20:26] <YHWH> if not lal of us
[20:26] <YHWH> all, too
[20:26] <minerva> wow
[20:26] <minerva> ok den
[20:26] <minerva> i had a sort of date last night

osa1

function fail(reason)
    return { status = "failure", reason = reason }
end

function success(ret, idx)
    return { status = "success", token = ret, new_idx = idx }
end

function token(tok)
    return function (stream, idx, cont)

osa1

{-# LANGUAGE LambdaCase, GeneralizedNewtypeDeriving #-}
{-# OPTIONS_GHC -Wall #-}
import Data.Array.IArray
import Debug.Trace

stream :: Array Int String
stream = listArray (0, length lst - 1) lst
  where
    lst = [ "(", "!", "string", "?", "string", ")", "?", "string" ]

osa1

{-# OPTIONS_GHC -Wall #-}
module ShuntingYard where

import qualified Data.Map as M

data Op = Op String Prec Assoc
        | OLParen | ORParen deriving (Show)

type Prec = Int

osa1

Lua 5.2.2  Copyright (C) 1994-2013 Lua.org, PUC-Rio
> print((function () end)())

> a = (function () end)()
> print(a)
nil

osa1

module CONCAT-SYNTAX

  syntax Concat ::= List{Concat1, " "}

  syntax Concat1 ::= Id
                   | "|" Concat1 "|" // quotation
                   | "[" Concat "]"
                   | Int
                   | "print"
                   | "pop"

osa1

{-# OPTIONS_GHC -Wall #-}
{-# LANGUAGE FlexibleContexts  #-}
{-# LANGUAGE GADTs             #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes       #-}
{-# LANGUAGE TemplateHaskell   #-}
{-# LANGUAGE TypeFamilies      #-}


module Main where

osa1

➜  ghc git:(ticket3452) ✗ ../inplace/bin/ghc-stage2 --interactive
GHCi, version 7.7.20130806: http://www.haskell.org/ghc/  :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer-gmp ... linking ... done.
Loading package base ... linking ... done.
ghci> :set +t
ghci> 1
1
it :: Num a => a
ghci> id