12 lines
346 B
CoffeeScript
12 lines
346 B
CoffeeScript
{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'
|