repl.gs

#   Copyright © 2009 Sam Chapin
#
#   This file is part of Gospel.
#
#   Gospel is free software: you can redistribute it and/or modify
#   it under the terms of version 3 of the GNU General Public License
#   as published by the Free Software Foundation.
#
#   Gospel is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with Gospel.  If not, see <http://www.gnu.org/licenses/>.

{ continuation = null
  { env = dynamicContext
    { { continuation := thisContext
        "> " print
        ["=> ", (parser read interpretInScope: nave inEnvironment: env) serialized, "\n"] print
      } value # This block provides a continuation that can be invoked to reenter the loop.
      recurse
    } value
  } except: { e |
    ["\nUnhandled exception: ", e, "\n"] print
    continuation return
  }
} value