Remove lookup-char.
* reader.c (lookup_char): Remove. * module/mes/read-0.mes (lookup-char): Remove. (read-word): Rewrite using quote.
This commit is contained in:
parent
aa0aaa58ab
commit
6f60e12d76
|
@ -246,9 +246,6 @@
|
|||
(#t (read-string (read-byte) (peek-byte) (append-char s c)))))
|
||||
(list->string (read-string (read-byte) (peek-byte) (list))))
|
||||
|
||||
(define (lookup-char c a)
|
||||
(lookup (cons (integer->char c) (list)) a))
|
||||
|
||||
(define (read-word c w a)
|
||||
(cond
|
||||
((eq? c 32) (if (null? w) (read-word (read-byte) (list) a)
|
||||
|
@ -300,9 +297,9 @@
|
|||
(cons
|
||||
(lookup (symbol->list (quote unquote-splicing)) a)
|
||||
(cons (read-word (read-byte) w a) (list)))))
|
||||
(#t (cons (lookup-char c a) (cons (read-word (read-byte) w a)
|
||||
(list))))))
|
||||
((eq? c 96) (cons (lookup-char c a) (cons (read-word (read-byte) w a) (list))))
|
||||
(#t (cons (quote unquote) (cons (read-word (read-byte) w a)
|
||||
(list))))))
|
||||
((eq? c 96) (cons (quote quasiquote) (cons (read-word (read-byte) w a) (list))))
|
||||
((eq? c 59) (read-line-comment c) (read-word 10 w a))
|
||||
((eq? c -1) (list))
|
||||
(#t (read-word (read-byte) (append2 w (cons (integer->char c) (list))) a))))
|
||||
|
|
9
reader.c
9
reader.c
|
@ -43,9 +43,6 @@ read_line_comment (int c)
|
|||
return read_line_comment (getchar ());
|
||||
}
|
||||
|
||||
|
||||
SCM lookup_char (int c, SCM a);
|
||||
|
||||
SCM
|
||||
read_word (int c, SCM w, SCM a)
|
||||
{
|
||||
|
@ -136,12 +133,6 @@ lookup (SCM s, SCM a)
|
|||
return internal_make_symbol (s);
|
||||
}
|
||||
|
||||
SCM
|
||||
lookup_char (int c, SCM a)
|
||||
{
|
||||
return lookup (cons (make_char (c), cell_nil), a);
|
||||
}
|
||||
|
||||
SCM
|
||||
list_of_char_equal_p (SCM a, SCM b)
|
||||
{
|
||||
|
|
Loading…
Reference in a new issue