rewrite symbol=? in c
This commit is contained in:
parent
0d59eee27b
commit
4e895c97d0
|
@ -609,19 +609,6 @@
|
||||||
|
|
||||||
(export member assoc)
|
(export member assoc)
|
||||||
|
|
||||||
;;; 6.5. Symbols
|
|
||||||
|
|
||||||
(define (symbol=? . objs)
|
|
||||||
(let ((sym (car objs)))
|
|
||||||
(if (symbol? sym)
|
|
||||||
(every (lambda (x)
|
|
||||||
(and (symbol? x)
|
|
||||||
(eq? x sym)))
|
|
||||||
(cdr objs))
|
|
||||||
#f)))
|
|
||||||
|
|
||||||
(export symbol=?)
|
|
||||||
|
|
||||||
;;; 6.6 Characters
|
;;; 6.6 Characters
|
||||||
|
|
||||||
(define-macro (define-char-transitive-predicate name op)
|
(define-macro (define-char-transitive-predicate name op)
|
||||||
|
|
20
src/symbol.c
20
src/symbol.c
|
@ -77,6 +77,25 @@ pic_symbol_symbol_p(pic_state *pic)
|
||||||
return pic_bool_value(pic_sym_p(v));
|
return pic_bool_value(pic_sym_p(v));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static pic_value
|
||||||
|
pic_symbol_symbol_eq_p(pic_state *pic)
|
||||||
|
{
|
||||||
|
size_t argc, i;
|
||||||
|
pic_value *argv;
|
||||||
|
|
||||||
|
pic_get_args(pic, "*", &argc, &argv);
|
||||||
|
|
||||||
|
for (i = 0; i < argc; ++i) {
|
||||||
|
if (! pic_sym_p(argv[i])) {
|
||||||
|
return pic_false_value();
|
||||||
|
}
|
||||||
|
if (! pic_eq_p(argv[i], argv[0])) {
|
||||||
|
return pic_false_value();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return pic_true_value();
|
||||||
|
}
|
||||||
|
|
||||||
static pic_value
|
static pic_value
|
||||||
pic_symbol_symbol_to_string(pic_state *pic)
|
pic_symbol_symbol_to_string(pic_state *pic)
|
||||||
{
|
{
|
||||||
|
@ -109,6 +128,7 @@ void
|
||||||
pic_init_symbol(pic_state *pic)
|
pic_init_symbol(pic_state *pic)
|
||||||
{
|
{
|
||||||
pic_defun(pic, "symbol?", pic_symbol_symbol_p);
|
pic_defun(pic, "symbol?", pic_symbol_symbol_p);
|
||||||
|
pic_defun(pic, "symbol=?", pic_symbol_symbol_eq_p);
|
||||||
pic_defun(pic, "symbol->string", pic_symbol_symbol_to_string);
|
pic_defun(pic, "symbol->string", pic_symbol_symbol_to_string);
|
||||||
pic_defun(pic, "string->symbol", pic_symbol_string_to_symbol);
|
pic_defun(pic, "string->symbol", pic_symbol_string_to_symbol);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue