artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Remove lookup-char.

Browse source 
* reader.c (lookup_char): Remove.
* module/mes/read-0.mes (lookup-char): Remove.
  (read-word): Rewrite using quote.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-23 11:26:35 +01:00
parent aa0aaa58ab
commit 6f60e12d76
2 changed files with 3 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
module/mes/read-0.mes
View file

@ -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)
(#t (cons (quote unquote) (cons (read-word (read-byte) w a)
(list))))))
((eq? c 96) (cons (lookup-char c a) (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
View file

@ -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)
{