 class Symbol
-  constructor: (@name, @pos) ->
-  toString: -> @name
+  constructor: (@name, @quoted, @pos) ->
+  toString: -> "#{if @quoted then "'" else ""}#{@name}"
 
 class Nil
   toString: -> 'nil'

      @forwards "'"
      if @expects '(' #list
        return @list()
      else #atom
        return @atom()
    else if @expects '(' #calling function
      return @call_fun()
    else #atom
      return @atom()

  program: ->
    ret = []

    return t if @forwards_if 't'

    #var
    return new Symbol(@symbol(), quoted, @currentPos())

  symbol: ->
    ret = ''
