LispInSmallPieces/chapter1/astAccessors.coffee

{car, cdr, listp} = require 'cons-lists/lists'

symbol = (form) -> (car form)

module.exports =
  astObject: (form) -> typeof (car form) == "string"
  aSymbol: symbol
  aValue:  (form) -> (car cdr form)
  isAList: (form) -> (symbol form) == 'list'
  isARecord: (form) -> (symbol form) == 'record'
  isAVector: (form) -> (symbol form) == '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'`
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
			`symbol = (form) -> (car form)`

			`module.exports =`
[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			`astObject: (form) -> typeof (car form) == "string"`
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			`aSymbol: symbol`
			`aValue: (form) -> (car cdr form)`
			`isAList: (form) -> (symbol form) == 'list'`
			`isARecord: (form) -> (symbol form) == 'record'`
			`isAVector: (form) -> (symbol form) == 'vector'`