Flea web server using Rack and my own flea fork

config.ru

require 'rack'
require 'flea'

interpreter = Flea::Interpreter.new

run Proc.new { |env|
  interpreter.run(File.read(File.new("server.scm")))
  a = interpreter.evaluate([:call, env]).map! {|x| 
    interpreter.evaluate(x)
  }
  a = [a[0], a[1], a[2..-1]]
}

router.scm

(define routes (hash-new))

(define get 
    (lambda (path proc)
        (hash-set routes path proc)))

(define router
    (lambda (env)
        (if (nil? (hash-get routes (hash-get env "REQUEST_PATH")))
            ((hash-get routes "/") env)
            ((hash-get routes (hash-get env "REQUEST_PATH")) env))))

(define call 
    (lambda (env)
        (router env)))

server.scm

(load "router.scm")

(define headers (hash-new))
(hash-set headers "Content-Type" "text/html")

(get "/" 
    (lambda () 
        (append (list 200 headers) (file-read (file-new "server.scm" "r")))))

(get "/something" 
    (lambda (env) 
        (append (list 200 headers) "something")))
        
(get "/special"
    (lambda (env)
        (append (list 200 headers) "SPECIAL")))