function SCM_atom($s) { $x = $s->car; if (!Object::is_cons($x)) { return Symbol::new_instance('#t'); } else { return Symbol::new_instance('#f'); } }
/** * 要素解析 */ private static function parse_object(&$tokens) { $token = array_shift($tokens); if ($token == '(') { return self::parse_list($tokens); } elseif (is_numeric($token)) { return Number::new_instance($token); } elseif (preg_match('/^".*"$/', $token)) { return String::new_instance($token); } else { return Symbol::new_instance($token); } }