LispInSmallPieces/chapter1/astAccessors.coffee

{car, cdr, listp} = require 'cons-lists/lists'
{Node, Symbol} = require "./reader_types"

module.exports = ops =
  astObject: (form) -> form instanceof Node
  aValue:  (form) ->   form.value
  aSymbol: (form) ->   form.value
  isAList: (form) ->   ops.astObject(form) and form.type == 'list'
  isARecord: (form) -> ops.astObject(form) and form.type == 'record'
  isAVector: (form) -> ops.astObject(form) and form.type == 'vector'
[bug] Fixed the reader to handle dotted lists. This support is ugly and probably incorrect, but it passes all the current tests and handles test cases in the original documentation. 2015-07-08 02:56:11 +00:00			`{car, cdr, listp} = require 'cons-lists/lists'`
[refactor] Knuckled under and made nodes a Javascript type 2015-07-28 23:51:01 +00:00			`{Node, Symbol} = require "./reader_types"`
TEST: Add tests for the reader (!), which I had forgotten. This also adds a number of accesory functions necessary for rationalizing the record structure of an object in the lex/parse phase into something more lisp-like. There's a metadata issue here that I'm not quite wrapping my head around. 2015-07-03 22:47:04 +00:00
[feat] The interpreter works and all the tests run without crashing. 2015-08-03 14:31:22 +00:00			`module.exports = ops =`
[refactor] Knuckled under and made nodes a Javascript type 2015-07-28 23:51:01 +00:00			`astObject: (form) -> form instanceof Node`
			`aValue: (form) -> form.value`
			`aSymbol: (form) -> form.value`
			`isAList: (form) -> ops.astObject(form) and form.type == 'list'`
			`isARecord: (form) -> ops.astObject(form) and form.type == 'record'`
			`isAVector: (form) -> ops.astObject(form) and form.type == 'vector'`